Esto es como pude resolver mi duda
activar la referencia microsoft dao 3.51 o 3.6
los combo box se pueden cambiar estan asi poque asi elegia el usurio la tabla donde iva almacenar
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)
Set db2 = base.OpenRecordset _
("Select*from Caja", dbOpenDynaset, dbOptimistic)
Private Sub Commandagregar_Click()
If Combo1.text = "Compras" Then
db1.AddNew
db1!Fecha = Calendar1.Value
db1!Concepto = Text7.text
db1!Debe = Val(Text1.text)
db1.Update
If Check2.Value = Checked Then
If Combo2.text = "IVA Credito Fiscal" Then
db6.AddNew
db6!Fecha = Calendar1.Value
db6!Concepto = Text7.text
db6!Debe = Val(Text2.text)
db6.Update
End If
end sub
Private Sub Commandsalir_Click()
db1.Close
db2.Close
end
end sub