求VB连接access库的连接字符串

Question

ACCESS库有密码，我写的连接字符串是：
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Password=123456;Data Source=" & App.Path & "\boat.mdb"但是提示我“无法启动应用程序。工作组信息文件丢失，或是已被其它用户以独占方式打开”可是文件是存在的，我也没有打开啊，为什么会提示这个错误啊。

Answer 1

strconnection=" Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=c:\aa\text.mdb;Jet OLEDB:Database Password=1234"

Answer 2

'引用ADO("工程"/"引用"/Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command1_Click()
    On Error GoTo err
    Dim cn As New ADODB.Connection, rs As New ADODB.RecordSet
    '有密码的连接方式
    'cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;Jet OLEDB:DataBase password=12345;"
    '无密码的连接方式
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;Persist Security Info=False"
    cn.Open
    rs.CursorLocation=adUseClient'设置客户端游标
    rs.Open "select * from 表1", cn, 3, 2
    Set DataGrid1.DataSource = rs    '把记录集的记录显示到DataGrid1
    Exit Sub
err:
    MsgBox err.Description
End Sub