Visual Basic - Consulta Demasiadas Lineas en EXECUTE

Hola, tengo un problemita con el codigo en Visual Basic:
Me indica que hay un error ya que hay demasiadas lineas dento de la siguiente instrucción:

Alguien me podria indicar como puedo para dar continuidad o separar el codigo instrucción a instrucción.

Adjunto el codigo, en el que me da el siguiente error, cuando intento insertar otra linea de codigo: DEMASIADAS CONTINUACIONES DE LINEAS

cnn.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 & ""

Parace que tiene un limite de & _ lo cual lo solucionas escribiendo en una sola linea
lo que no entiendo es porque actualizas Mixto tantas veces.

Dim m As String
m = "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 & ""