Excel VBAからパスワードつきAccessにADOで接続する

    con As ADODB.Connection
    Set con = New ADODB.Connection
    
    With con
         .Provider = "Microsoft.Jet.OLEDB.4.0"
         .Properties("Data Source").Value = ThisWorkbook.Path & "\db1.mdb"
         .Properties("Jet OLEDB:Database Password").Value = "xxx"
         .Open
     End With

　３分でできるExcel VBAとか、これだけ出来れば完璧Excel VBA５つの技、とかいう類のものには書いてないから。