Cita:
Iniciado por ernestoelunico 
bueno yo acupo este codigo para agregar datos espero que te sirva
MUCHISIMAS GRACIAS
PROBE ESTE Y ME DIO RESULTADOS:
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim txtsql As String
con.Open ("dsn=bodega")
On Error Resume Next
txtsql = "INSERT INTO tb_agendamiento(cod_agend,fecha_agend,nom_usuario, modelo_equipo,simcard)Values('" & Text4 + "','" + Text5 & "','" + Label22 + "','" + Label9 + "','" + Label11 + "')"
Set rs = con.Execute(txtsql)
con.close
' End If
End Sub