Dim Db As Object 'DAO.Database Set Db = DBEngine.OpenDatabase("C:\MiBd.mdb", True, False, ";PWD=contraseña)
Ejemplos:
Temas relacionados:
PwdTransferDatabase
PwdOpenCurrentDatabase