Registre-se Bruno, é rapido e fácil.
Dim BD as Database
Dim RS as Recordset
Set BD = OpenDatabase("C:PASTANOMEBD.mdb") ' abrir compartilhado, gravação e leitura (default)
Set RS BD.OpenRecordset("NOMETABELA", dbOpenTable)
Não se esqueça das referencias ao DAO, JET, RECORDSET.
vlu//