Dovresti, però, controllare che App.Path non contenga già "\", come
nel caso di "C:\". Quindi, per essere a prova di bug, il codice da
sostituire sarebbe :

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