修改Access密碼

    Dim ado As New ADODB.Connection
   
    '獨佔模式
    ado.Mode = adModeShareExclusive
   
    ado.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=D:/Test.mdb;"
   
    'ALTER DATABASE PASSWORD [newPWD][oldPWD]
   
    ado.Execute "ALTER DATABASE PASSWORD [123456][]"

    ado.Close 

Access2003下測試通過。