Ciao! Ho risolto così:

Set dbs = OpenDatabase("mioDB.mdb", False, False, "; pwd=pippo")

Spero che possa servire a qualcun'altro!!

Grazie lo stesso......