Dovresti impostare il default di accesso del DBEngine,
prima di eseguire la OpenDatabase :
Ciao,codice:DBEngine.DefaultType = dbUseODBC Set DBChiusura = OpenDatabase(IIf(Right(App.Path,1) = "\", App.Path + "chiusura.mdb", App.Path + "\chiusura.mdb"))![]()