Dim db As Database
Dim oAcc As Access.Application
Set oAcc = New Access.Application
Set db = oAcc.DBEngine.OpenDatabase("ruta\baseprotegida.mdb", True, False,
";PWD=tucontraseņa")

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)