Cita:
Iniciado por mumo2006 
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
Bueno, el código así funciona, pero en las consultas de actualización (INSERT, UPDATE, DELETE) no es necesario abrir un recordset, se puede hacer directamente sobre la BD.
El código funcionaría igual se eliminas el recordset y pones:
con.Execute txtsql 