Dovresti impostare il default di accesso del DBEngine,
prima di eseguire la OpenDatabase :


codice:
DBEngine.DefaultType = dbUseODBC
Set DBChiusura = OpenDatabase(IIf(Right(App.Path,1) = "\", App.Path + "chiusura.mdb", App.Path + "\chiusura.mdb"))
Ciao,