Sub Main()
Dim lszPath As String
lszPath = App.Path
If Right$(lszPath, 1) <> "\" Then lszPath = lszPath & "\"
Set mDb = OpenDatabase(lszPath & "Archivio.mdb")
form1.show
End Sub

questo lo metti all'interno di un modulo e ti apre il DB per tutta la durata del programma.

ciao