Per il percorso il problema, probabilmente lo risolvi sostituendo

Set DBChiusura = OpenDatabase(App.Path + "" + "chiusura.mdb")

con

Set DBChiusura = OpenDatabase(App.Path + "\chiusura.mdb")

Per il formato, dovrebbe andare in porto con la modifica di cui
sopra.

Ciao,