Pues, si tiene demasiadas continuaciones de línea... quitale algunas:
Código vb:
Ver originalcnn.Execute "UPDATE Coches set Matricula = '" & Text1(1) & "', Marca = '" & CmbMarca.ListIndex & "', Modelo = '" & Text1(2) & _
"', TipoVehiculo = '" & CmbVehiculo.ListIndex & "', FechaMatriculacion = '" & Text1(3) & _
"', Garantia = '" & Text1(4) & "', Kilometros = '" & Text1(5) & "', NBastidor = '" & Text1(6) & _
"', Color = '" & Text1(7) & "', Origen = '" & CmbOrigen.ListIndex & "', Combustible = '" & CmbCombustible.ListIndex & _
"', Cilindrada = '" & Text1(8) & "', Potencia = '" & Text1(9) & "', Puertas = '" & Text1(10) & _
"', Ciudad = '" & Text1(11) & "', Carretera = '" & Text1(12) & "', Mixto = '" & Text1(13) & _
"', Mixto = '" & Text1(13) & "', Mixto = '" & Text1(13) & "', Mixto = '" & Text1(13) & _
"', Mixto = '" & Text1(13) & "', Mixto = '" & Text1(13) & "', Mixto = '" & Text1(13) & _
"', Mixto = '" & Text1(13) & "', Mixto = '" & Text1(13) & "' WHERE Id = " & IdRegistro & ""