Òª ÐÞ ¸Ä ÃÜ Âë ¿É ÒÔ Ê¹ ÓÃ NewPassword·½ ·¨ £º 
     Dim Db As Database 
     
     Set Db = OpenDatabase("C:\My Documents\MyDB.mdb",True, _ 
     False,";pwd=MyPassword1") 
     Db.NewPassword "MyPassword1","MyPassword2" 
     Db.Close 
    Ò² ¿É ÒÔ Ê¹ ÓÃ CompactDatabase·½ ·¨ £º 
     DBEngine.CompactDatabase "C:\My Documents\Test.mdb", _ 
     "C:\My Documents\TestII.MDB", dbLangGeneral & ";pwd=MyNewPWD", _ 
     dbVersion30, ";pwd=MyPassword1" 
<END>
