使用 Data 控件打开 Accecc :

设置 Connect 属性为 ;pwd=密码

Data1.Connect = ";pwd=密码"

修改密码:

Data1.Database.NewPassword _老密码_, _新密码_