Accecc 数据库：
设置 Connect 属性为 ;pwd=密码
Data1.Connect = ";pwd=密码"
修改密码：
Data1.Database.NewPassword _老密码_, _新密码_