Visual Basic - Ayuda con bd y contraseña

Tengo una BD de Ascces asociada mediante el código que más abajo muestro a una aplicación que estoy haciendo,necesito proteger la BD mediante contraseña (es fundamental) y no tengo ni idea de como se hace.-
Si alguien me pudiera mostrar el código para poder hacerlo se lo agradecería un montón.-

Data1.DatabaseName = App.Path & "\bd1.mdb"
Data1.RecordSource = "tabla1"
Text1.DataField = "campo1"

Gracias de antemano.-

Hola
Para proteger la base de datos tienes que acerlo desde Access
Con la base de datos abierta
Herramientas- Seguridad- Establecer contraseña

Una vez tengas la base de datos con contraseña para poderla abrir desde VB nesecitaras el codigo.

Private sub form_Load()
Data1.DatabaseName = App.Path & "\bd1.mdb"
data1.conect=";pwd=tucontraseña"
Data1.RecordSource = "tabla1"
Text1.DataField = "campo1"
End sub
la parte de "tucontraseña" deveras remplazarla por la que hayas colocado el la base de datos.

Espero esto te sirva
Chao.