用ado打开数据库，提示：工作组信息文件丢失…… 是怎么回事？

v_tang

用ado打开数据库，提示：工作组信息文件丢失，或是已被其它用户以独占方式打开。是怎么回事？
代码如下：
Dim con As ADODB.Connection
Dim rs1 As ADODB.Recordset '下级tbl单位编码
Dim strCon As String
Dim strSql As String
Dim strUnitID As String
Dim strSubUnitId As String
If Nz(txtFileMerge) = "" Then
    MsgBox "请选择文件后再执行此操作！"
    Exit Sub
End If
If MsgBox("执行此操作将覆盖原有数据，执行请单击“是”", vbYesNo, "提示") = vbNo Then
    'Exit Sub
End If
Set con = New ADODB.Connection
strCon = "rovider=Microsoft.Jet.OLEDB.4.0;User ID=assword='access20032008';Data Source='" & txtFileMerge & "'ersist Security Info=True"
MsgBox strCon
'strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & txtFileMerge & ";"
con.ConnectionString = strCon
con.Open

v_tang

谢谢cuxun,问题已解决：
connectstring 中 加入 Jet OLEDBatabase Password= 就行了

v_tang

试过了，不带密码可以，用
strCon = "rovider=Microsoft.Jet.OLEDB.4.0ersist Security Info=False;Data Source=" & txtFileMerge & ";"

请问高手带密码的connectionstring 怎么写？