Visual Basic - PASSWORD

AMIGOS: QUIERO ABRIR UNA BASE DE DATOS DE ACCESS PERO QUE ESTE PROTEGIDA CON PASSWORD, ASI LO ABRO SIN PASSWORD:

Private Sub Form_Load()

dbname = App.Path
If Right$(dbname, 1) <> "\" Then dbname = dbname & "\"
dbname = dbname & "PRUEBA.mdb"

Set mibase = OpenDatabase(CurDir() & "\PRUEBA.mdb")
Set total1 = mibase.OpenRecordset("total")
Set db = OpenDatabase(dbname)

End Sub

Gracias de antemano, por su apoyo

Supongo que estás trabajando con DAO:
Set mibase = OpenDatabase(CurDir() & "\PRUEBA.mdb", False, False,";" & "PWD=nombreDeLaClave;")
Espero que te sirva
Saludos