Ecco il codice:

'Attivo la connessione al DB
Set database = OpenDatabase(App.Path + "\dbmaga.mdb")