Prueba con este codigo:
Private mWS As Workspace
Private mBase As Database
' Donde abres la BD
Dim iPathBase as String
iPathBase= App.Path & 'Ruta de la BD
Set mWS = DBEngine.Workspaces(0)
Set mBase = mWS.OpenDatabase(iPathBase, False, False, ";pwd=contraseña")
Me avisas que tal...
