aprire un mdb access 97 con password

[allejo]

Avevo fatto un programma del genere

Dim Conn1 As New ADODB.Connection

With Conn1
.Provider = "Microsoft.jet.OLEDB.4.0"
.Properties("Data Source") = "percorso_del_db\nome_db.mdb"
.Properties("Jet OLEDBatabase Password") = "pwd"
End With
Conn1.Open

:metallica