Visual Basic - AYUDA A INGRESAR DATOS

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

Yo tambien baje este codigo y tengo problemas con las modificaciones, me dice que hay un error de sintaxis con la sentencia update. Espero su ayuda.

Private Sub Command3_Click()
Dim con As New ADODB.Connection
Dim txtsql As String
con.Open ("dsn=bodega")
a = MsgBox("ESTAS SEGURA DE MODIFICAR A ESTE PROVEEDOR", vbYesNo)
If a = vbYes Then
txtsql = "update proveedor set rut=" & Text1.Text & ""
txtsql = txtsql & ", nombre_empresa='" & Text2.Text & "'"
txtsql = txtsql & ", giro='" & Text3.Text & "'"
txtsql = txtsql & ", direccion='" & Text4.Text & "'"
txtsql = txtsql & ", comuna='" & Combo1.Text & "'"
txtsql = txtsql & ", telefono=" & Text5.Text & ""
txtsql = txtsql & ", fax=" & Text6.Text & ""
txtsql = txtsql & ", e_mail='" & Text7.Text & "'"
txtsql = txtsql & ", web='" & Text8.Text & "'"
txtsql = txtsql & ", nom_contacto='" & Text9.Text & "'"
txtsql = txtsql & ", fono_contacto=" & Text10.Text & ""
txtsql = txtsql & ", mail_contacto='" & Text11.Text & "'"
'Where RuT = " & text1.text"""
MsgBox "REGISTRO MODIFICADO", vbOKOnly
con.Execute (txtsql)
End If
End Sub