Visual Basic para Aplicaciones - Abrir BD de Access con contraseña desde VB

Cómo puedo abrir una BD de Access desde una aplicación en VB si esta tiene contraseña de seguridad, ya que cuando mando abrir la BD indica que la contraseña no es válida y cuando abro la BD normal y ejecuto mi aplicación en VB corre de forma normal. Espero tengan un poco de código para poder accesar a la BD cuando esta tiene contrseña de seguridad. Gracias.

Hola aca tienes un pequeña funcion:

Sub Abrir_Base()
Dim largo As Integer
If gstrBaseLocal = "NO" Then
largo = Len(currentdb)
gxPathBase = Mid(currentdb, 1, 1) & ":\" & Mid(currentdb, 3, largo)
Else
gxPathBase = currentdb
End If
Set Db = DBEngine.Workspaces(0).OpenDatabase("", True, False, ";DATABASE=" & PathBase & ";PWD=" & "passsword")
'Set Db = DBEngine.Workspaces(0).OpenDatabase(currentdb, , True)

End Sub

espero te sirva

saludos

Mil Gracias por tu aporte.

A mi por lo menos me sirvio muchisimo

saludos