使用ADO的打开 Accecc 数据库方法：
Dim DB As Database
Set DB = OpenDatabase(FilePath, dbDriverNoPrompt, False, ";PWD=你的密码")
使用 Data 控件打开 Accecc 数据库方法：
首先设置 Data控件的属性 Exclusive=True 为独占模式
设置 Connect 属性为 ;pwd=密码
Data1.Connect = ";pwd=你的密码"
修改密码：
Data1.Database.NewPassword 老密码, 新密码