Visual Basic - Ayuda con base de dato dao

como asedo a una base de dato acess con contraseña utilizando Dao

hola mira..aca te envio algo...espero que te sirva

Dim dbs As DAO.Database
Dim rs As DAO.Recordset
Dim cPass as String
Dim Clave as String

Clave = "Password"
cPass = ";PWD=" & Clave

Set dbs = OpenDatabase("C:\Via\ACCESS97.MDB", True, False, cPass) 'no se deben omitir el segundo ni el tercer parámetro para que entre el password
Set rs = dbs.OpenRecordset("Tabla")

Saludos y Exitos