mira para abrir una BD puedes hacerlo asi

Dim BD as Database
Dim Tb as Recordset



set BD = Workspaces(0).Opendatabase("Tu base de datos")

set tb = BD.OpenRecodset(Tabla o consulta SQL)



para agregar registros

tb.Addnew
tb!Campo1 = Valor1
tb!campo2 = Valor2....
tb.Update
--------------------------
o puedes meter una consulta SQL
bd.execute ("INSERT INTO Tabla (campo1, campo2...) " & _
                  "VALUES (Valor1, Valor2...)


para cerrar la BD
tb.close
BD.close
set tb = nothing 'Liberas memoria
set BD = nothing