Si, lo faccio direttamente dal codice perchè si trova nella sottocartella dell'eseguibile:
Public Function Apri ()
On Error GoTo RigaErrore
pwd=mario1973")
Set DB = OpenDatabase(App.Path & "\Dati.mdb", False, False, "; pwd=jonny")
Exit Function
RigaErrore:
errormsg = MsgBox("Impossibile trovare il file Dati", vbCritical, "Errore")
End
End Function