Visual Basic - ALGUN MAESTRO QUE ME AYUDE

en est pagina ahi un codigo de bodega q me sirve de mucho, lo tengo trabajando pero el pongo salida de materia lo hace me resta del stock q tengo, pero al momento de ingresar algun material me sale un error y no me deja ingresar los datos

ERROR 2147217900 (80040E14) EN TIEMPO DE EJECUCION,
(microsfot)(CONTROLDADOR ODBC MICROSOFT ACCES) EL NUMERO DE VALORES DE CONSULTA Y NUMERO DE CAMPOS DE DESTNO SON DIFERENTES

EL PROGRAMA LO BAJE DE CODIGO FUENTES AHI LO ENCONTRE PORFA Q ALGUIEN ME AYUDE CUAL ES EL ERROR Q TIENE

ESTE ES EL CODIGO PARA INGRESAR LOS DATOS

Private Sub grabar_Click()
Dim con As New ADODB.Connection
con.Open ("dsn=bodega")
txtsql = ""
txtsql = "insert into movimiento(movimiento,codigo,nombre_producto,"
txtsql = txtsql & "unidad_medida,cantidad,"
txtsql = txtsql & "fecha_movimiento,distribucion,"
txtsql = txtsql & "stock_actual,stock_inicial,"
txtsql = txtsql & "solicitado,autorizado,"
txtsql = txtsql & "observaciones,hacia)"
txtsql = txtsql & "values('"
txtsql = txtsql & Combo2.Text + "','"
txtsql = txtsql & Text1.Text + "','"
txtsql = txtsql & Text2.Text + "','"
txtsql = txtsql & Text3.Text + "','"
txtsql = txtsql & Text10.Text + "','"
txtsql = txtsql & Text7.Text + "','"
txtsql = txtsql & Text11.Text + "','"
txtsql = txtsql & Text4.Text + "','"
txtsql = txtsql & Text5.Text + "','"
txtsql = txtsql & Text12.Text + "','"
txtsql = txtsql & Text13.Text + "','"
txtsql = txtsql & Text14.Text + "')"
'txtsql = txtsql & Text15.Text + "','"
'txtsql = txtsql & Text8.Text + "')"
con.Execute (txtsql)
MsgBox "PRODUCTO INGRESADO "
txtsql = "update productos set stock_actual=' " & Text7.Text & "' where codigo= '" & Text1.Text & "' "
con.Execute (txtsql)
con.Close
Call limpia(movimiento)
End Sub

El problema es muy claro, estas declarando 13 campos y quieres meter 12 (ya que los ultimos 2 los tienes comentados, osea con el signo ' )

Es muy intuitivo el error : "EL NUMERO DE VALORES DE CONSULTA Y NUMERO DE CAMPOS DE DESTNO SON DIFERENTES"