初级数据库连接问题，在线等待！

Question

菜鸟求助，ACCESS数据库在VB中打开时如何通过密码打开啊？也就是
Set MyDB = WS.OpenDatabase(App.Path & "\alertData.thl", 1, 1)
语句中如何添加密码111啊？
请大虾直接，在线急等！

Answer 1

Dim con As ADODB.Connection
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Password=111;Data Source=" & App.path & "\alertData.thl"

Answer 2

再说了，我用的是
Public RS As Recordset, WS As Workspace，MyDB As Database
Set WS = DBEngine.Workspaces(0)   '打开数据库
Set MyDB = WS.OpenDatabase(App.Path & "\alertData.thl", 1, 1)
啊，这种打开方法怎么添加密码呢？

Answer 3

这种方法我没用过，你试试把你的
Set WS = DBEngine.Workspaces(0)   '打开数据库
改成下面的
Set WS = DBEngine.CreateWorkspace("", "Admin", "111")

Answer 4

修改成Set WS = DBEngine.CreateWorkspace("", "Admin", "111")后不成功。我的问题就是说有个ACCESS数据库是有密码的，我要通过先打开个workspace再用ws打开数据库的方式打开它，但是系统提示说密码错误，所以我想请问大虾们密码要加在哪才能打开它？不用connection的方式。