Hola
Para realizar una conexión por código:
Para declararlos:
Código:
Public bd As New ADODB.Connection
Public Reg As New ADODB.Recordset
Para la conexión
Código:
Ruta = App.Path & "\BD.mdb"
bd.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Ruta & ";Persist Security Info=False;Jet OLEDB:Database Password=XXXXXX"
Para realizar un insert, update, delete
Código:
bd.Execute "Insert into ..."
También puedes abrir un recordset con los resultados de una select
Código:
Reg.Open "Select * from Tabla1", bd, adOpenDynamic, adLockReadOnly
--Saludos--