bueno yo acupo este codigo para agregar datos espero que te sirva
Cita: 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