[VB6] connessione al file mdb protetto da password

[allejo]

Io ho quello di access 97 non so se va bene....
cmq posto il codice

dim conndescr as adodb.connection
set conndescr = new adodb.connection
With conndescr
.Provider = "Microsoft.jet.OLEDB.4.0"
.Properties("Data Source") = "DATA_SOURCE"
.Properties("Jet OLEDB:Database Password") = "PASSWORD"
End With