在线急待，关于设置Access数据库密码

[letsband]

在利用
dbName = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database\Report.mdb"
cat.Create dbName

这种方法创建Access数据库时，怎样设置数据库访问密码啊？
拜托各位大虾帮帮小弟阿

[wumy_ld]

dbName = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\Database\Report.mdb;jet oledb:database password=你的密码"

注意jet oledb后面是冒号：

[letsband]

原来这么简单，多谢这位大哥了

给分拉

[lisen101]

要修改密码可以使用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"