Cambiar GetObject por otro comando

[ernestoelunico]

uso la siguiente funcion para crear un objeto en si lo uso para abrir la base de datos y visualizar el informe en un objeto llamado snapshotviewer para eso uso la creacion el objeto el problema que tengo es que la base de datos tiene contraseña y buscando no encuentro los parametros para poder usar esto e incluir la contraseña si alguien sabe si puedo usar otra cosa o esta misma les agradeseria mucho.

Set oApp = GetObject(App.Path & "registros.mdb")

[Escucha]

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