Visual Basic - Access con contraseña

¡Hola a todos!

Como hago para abrir una base de datos Access 2003 con contraseña

'// parte del codigo

'Referencia
Microsoft Data Formatting Object Library 6.0 (SP6)

Dim Datos As Database
Dim Rcs As Recordset

Sub Abrir()
'Contraseña "CONTRASEÑABD"

Set Datos = OpenDatabase(App.Path & "\DB.mdb")
End Sub


De antemano Gracias

Con esa referencia no creo que consigas abrir ninguna base de datos, quizá te refieras a Microsoft DAO.

Bueno, ponlo así:

Set datos = OpenDatabase(App.Path & "\DB.mdb", False, False, ";" & "PWD=CONTRSEÑABD;")