Visual Basic - Abrir base datos con password

Hola a todos, tengo un formulario a partir de Access con ADO data control, y quiero abrirlo
el problema es que no puedo porque la base de datos tiene un password, como hago
abrir el formulario sin sacar la contraseña en access. por favor el que me envie el ejemplo
que me aclare bien donde tengo que poner los códigos (en que evento) en el formulario mismo o en el botón que lo abre. Muchas gracias por la ayuda. Saludos

Una de las Posibilidades

Dim dbsdao36 As DAO.Database
Dim rs As DAO.Recordset
Dim cPas As String
cPas = ";pwd=123456
Set dbsdao36 = OpenDatabase(App.Path & "\datos.mdb", False, False, cPas)
Set rs = dbsdao36.OpenRecordset("tabla")
Set Data1.Recordset = rs

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
DATOS PARA CAMBIAR POR LOS QUE TU NECESITES

CONTRASEÑA = 123456
NOMBRE BASE DATOS = \datos.mdb
TABLA DE LA BASE DATOS = tabla

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Un saludo

Muchas gracias por tu ayuda pero donde lo ingreso, en que evento del formulario?

En el evento Load del formulario

Un saludo