Problema al insertar nuevos datos en una tabla de acces mediante VB6

[mumo2006]

Estimados.
Tengo la siguiente conexion por ODBC a mi BD (alojada en un equipo de mi red)

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim txtsql As String
con.Open ("dsn=bodega")

Tengo en mi BD una tabla llamada tb_agendamientos, en la cual deseo guardar ciertos datos tales como fecha_agend, cod_agend.

Cuales deben ser las instrucciones para actualizar, insertar y eliminar???

Por lo que he leido ADO puede trabajar tanto INSERT como ADD.NEW.
Me podrian ayudar. Estoy detenido en esto. La conexion funciona bien y de echo la he testeado desde 10 ordenadores conectados por red a esta pequeña base de datos y no hay problema.
Ahora, solicito de su ayuda para las operaciones.
Gracias.

[ernestoelunico]

bueno yo acupo este codigo para agregar datos espero que te sirva

Option Explicit
Public base As DAO.Database
Public db1 As DAO.Recordset
Public db1 As DAO.Recordset
Dim ruta As String
/ la primera abre la base de datos, la segunda la tabla y la tercera es la ruta

Private Sub Form_Load()

ruta = App.Path & "\registros.mdb "
Set base = OpenDatabase(ruta)

Set db1 = base.OpenRecordset _
("Select*from compra", dbOpenDynaset, dbOptimistic)
db1.AddNew
db1!Fecha = Calendar1.Value
db1!Concepto = Text7.text
db1!Debe = Val(Text1.text)
db1.Update
db1.Close

end sub

[mumo2006]

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

[Avellaneda]

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