[SOLUCIONADO] base de datos con contraseña

[Manu_Leon]

ya lo solucione con DAO:
Dim espacio As Workspace
Dim data_base As Database
Dim result As Recordset
Set espacio = CreateWorkspace("", "admin", "", dbUseJet)

Set data_base = espacio.OpenDatabase("users.mdb", True, False, ";PWD=mipass")

Por si a alguien le interesa :):)