在VB.NET中怎样用ADODB打开带密码的数据库

我用如下代码实现，但总是出问题。
Dim path As String
Dim strSql As String
Dim RemeberPassword As String
Dim RemeberAccount As String
Dim rec As New ADODB.Recordset()
Private mCnnDB As New ADODB.Connection()
mCnnDB.CursorLocation = ADODB.CursorLocationEnum.adUseClientBatch
mCnnDB.Provider = "Microsoft.Jet.OLEDB.4.0"
mCnnDB.Open(My.Application.Info.DirectoryPath & "\test\test.mdb", "Admin","PassWord")
msgbox("1")
rec = New ADODB.Recordset()
rec.CursorType = ADODB.CursorTypeEnum.adOpenKeyset
rec.LockType = ADODB.LockTypeEnum.adLockOptimistic
strSql = "select * from Account where Account='" & AccountTextBox.Text & "'"
rec.Open(strSql, mCnnDB)
If Not rec.EOF Then
rec.MoveFirst()
End If
mCnnDB.Close()
rec.Close()
若数据库成功连接，就会出现提示框，显示“1”，但现在没有出现，也没有VB.NET弹出的错误提示，也就是说，程序运行到第8行时卡住了。现能保证前7行正确运行（因为当第9行放在的6行的位置时，出现了提示框）。哪位大侠能告诉我第8行的问题出在哪？
注：1.在程序目录的“\bin\Debug”中放置的“test”文件夹，即数据库目录无问题。
2.当此数据库没有密码时，运行正常，有了密码后，就出现上述问题。
3.没有密码时，第8行为：
mCnnDB.Open(My.Application.Info.DirectoryPath & "\test\test.mdb", "Admin")
有密码之后，代码如上。

密码是需要写在连接字符串上的

加个try...catch 捕获下异常看看

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息