ADO allows opening an ACCESS DB with simple password protection



ADOX allows manipulation of user & group level passwords BUT this is

NOT the same as a simple DB password. 



How can I get this same functionality for ACCESS with ADO ???

DAO:

Set thisDb = OpenDatabase(thisdbname, True, False, ";pwd=foo")

thisDb.NewPassword "foo", ""

thisDb.Close



ADO:

This ADO opens the ACCESS DB, but does not provide a method to change

Password !



ADOJetProvider = "Microsoft.Jet.OLEDB.4.0"

        Set Jetconn = New ADODB.Connection

        With Jetconn

        .Provider = ADOJetProvider

        .ConnectionString = strMDBpath

        .CursorLocation = adUseClient

        .Properties("Jet OLEDB:Database Password") = Mypwd

        .Open strMDBpath

        End With

        



Thanks Andrew