Ciao.
innanzitutto ti consiglio di leggere il regolamento e modificare il titolo e ti ricordo di mettere il codice tra i tag CODE in modo che risulti più leggibile.
hai già dichiarato le variabili dei database?
inoltre non ti conviente, essendo 2 database utilizzare i percorsi statici in cui risiedono i database?
esempio
codice:
Dim record As DAO.Recordset
Dim db As DAO.Database
set db = Opendatabase ("C:\miacartella\mioDatabase")
set record = db.Openrecordser("miaTAbella",dbOpenTable)
.....
Dim db2 as DAO.database
dim recordset2 as dao.recordset
set db = Opendatabase ("C:\miacartella\mioDatabase2")
set record2 = db.Openrecordser("miaTAbella2",dbOpenTable)
Set Anagrafiche = DBEngine.Workspaces(0).Databases(0)
Set record = [Anagrafiche].OpenRecordset("Anagrafiche", dbOpenTable)