Hola, Ernesto.
A mi me ha funcionado el código que inserto más abajo.Si has encontrado alguna otra solución o detectas algún fallo de funcionamiento te ruego me lo hagas saber.
Espero que a tí también te funcione.
Código:
'Creamos una instancia de access en el objeto oApp
'Después abrimos la base de datos con el método OpenCurrentDatabase
'cuyos parámetros son OpenCurrentDatabase(filepath As String, [Exclusive As Boolean = Falso], [bstrPassword As String])
Set oApp = CreateObject("Access.Application")
oApp.OpenCurrentDatabase strDataBasePath, False, strDataBasePassword