Visual Basic - proble con igresar datos

en est pagina ahi un programa de bodega q me srve de mucho, lo tengo trabajando pero el problema q tiene es q cuando 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,
EL PRORAMA ESTA EN CODIGOS , POR FA SI ALGUIEN PUEDE DECIRME CUAL ES EL ERROR Q ME AYUDE POR FAVOR

ESTE ES EL CODIGO Q ME DA ERROR

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