[求助]如何VB与Access的密码连接？

idoo

在做VB与CAD时，遇到一个需要VB与Access的连接问题，如下连接语句，在access没有密码时，是可以连接通讯的，但是当给access加了密码后，就进不去了：

Dim dbWR As Workspace
Dim dbDB As Database
Dim dbDL As Recordset
Set dbWR = CreateWorkspace("", "admin", "", dbUseJet)
Set dbDB = dbWR.OpenDatabase("C:\Program Files\Database.mdb", False, True, "")
Set dbDL = dbDB.OpenRecordset("H-Data", dbOpenDynaset, dbReadOnly)

如果设置密码为123456，则做了如下调整，可还是不行：

Set dbWR = CreateWorkspace("", "admin", "123456", dbUseJet)

求解…………

dxhy

"\Database.mdb;Jet OLEDB:Database Password=123456;Everyone,000000"