Visual Basic - Abrir BD 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.

Set Bd = OpenDatabase("C:\Visual_Basic\ASistemas\Sistemas.Mdb", False, False, ";Pwd=D.P.G.")

En la instrucción anterior donde aparece la Pwd, pones la contraseña, espero te sirva. Saludos Pola