vb adodc控件连接带密码的access数据库出错(access以独占方式打开后设置密码123456)

我按照网上查到的方法：(1)手动：在属性页“所有”处的JetOLEDB:DataBasepassword处填写值“123456”，测试连接成功！但在运行程序时仍提示“无法启用应用程序，工作信息文件丢失或...

我按照网上查到的方法：(1)手动： 在属性页“所有”处的Jet OLEDB: DataBase password处填写值“123456”，测试连接成功！但在运行程序时仍提示“无法启用应用程序，工作信息文件丢失或是已被其他用户以独占方式打开”(2)编写代码：Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\XJ.mdb" ;Persist Security Info=False:Jet OLEDB: DataBase password=123456" 依然没有解决上述问题。哪位大神解答下！！！全文代码如下：rivate Sub Form_Load() Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset 告知单管理.Caption = 登录窗体.onloaduser & "！欢迎来到[告知单维护]平台，今天是：" & Format(Now(), "dddddd") & " " & Format(Now(), "dddd") DataGrid1.Columns(0).Width = 400 DataGrid1.Columns(1).Width = 1000 DataGrid1.Columns(2).Width = 1500 DataGrid1.Columns(3).Width = 1000 DataGrid1.Columns(4).Width = 3000 DataGrid1.Columns(5).Width = 1000 DataGrid1.Columns(6).Width = 1000 DataGrid1.Columns(7).Width = 1000 DataGrid1.Columns(8).Width = 1200 DataGrid1.Columns(9).Width = 1000 If cnn.State = adStateOpen Then cnn.Close cnn.Open "driver={microsoft access driver (*.mdb)};dbq=" & App.Path & "\XJ.mdb;pwd=123456" If rs.State = adStateOpen Then rs.Close rs.Open "select * from XJgzdgl", cnn, adOpenKeyset, adLockOptimistic rs.Update Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\XJ.mdb" & ";Persist Security Info=False;Jet OLEDB: DataBase Locking Mode=1;Jet OLEDB: DataBase password=123456" Adodc1.CommandType = adCmdText Adodc1.RecordSource = "select top 500 * from XJgzdgl order by ID desc" Adodc1.Recordset.UpdateBatch Adodc1.Refresh Adodc1.Recordset.MoveFirst

展开