用 ADOX 对象创建 MDB 数据库，如何设定数据库密码？

[AllCHN]

在 VB 中，使用 ADOX 创建一个 ACCESS 数据库文件，并创建一些数据表，
请问，如何在创建数据库文件时指定数据库密码？

引用 Microsoft ADO Ext. 2.8 for DDL and Security
代码如下:
Dim ConnStr As String ' 连接串
Dim cat As New ADOX.Catalog ' ADO 扩展对象
Dim nfConn As New Connection ' 新建数据库文件的连接

ConnStr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=demo.mdb;Mode=ReadWrite"
cat.Create ConnStr

我试图用
cat.Users("admin").ChangePassword "", "password"
cat.Users.Append "admin", "password"

结果都不行？

[早起旺财]

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbName & ";Jet OLEDB:DataBase Password=" & DbPass

[faysky2]

参考：

Dim cat As New Catalog
cat.Create ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\newdata.mdb;Jet OLEDB:DataBase password=12345")