Visual Basic - ¿Como Abrir Base Datos Access con contraseña?

Hola... compañeros..., haber si me podeis ayudar, quiero abrir una BD Access con contraseña usando DAO sin control data, abriendo directamente el archivo mdb (no por ODBC), tampoco hay seguridad x usuario, solo contraseña... gracias.

Espero ayudarte:

Dim mdb as Database
Dim mrst as Recordset
Dim strDBName As String

'Obtenemos el nombre de la base de datos y la abrimos
strDBName = App.Path & "\Ejemplo.mdb"
Set mdb = DBEngine.Workspaces(0).OpenDatabase(strDBName, False, False, ";pwd=CLAVE")

'Abrimos los recordsets
Set mrst = mdb.OpenRecordset( _
"TABLA", dbOpenDynaset, dbSeeChanges, dbOptimistic).

Pero también lo puedes hacer mediante el control Data:

With Data1
.DatabaseName = App.Path & "Ejemplo.mdb"
.RecordSource = "Select * from TABLA"
.Connect = ";pwd=CLAVE"
End With

Espero haberte ayudado

Ha funcionado.... perfecto, muchas gracias!!