关于Access密码与Adodc控件的问题

[gemgama]

怎样用Adodc控件绑定一个带有密码的Access的数据库？
我在绑定时（可能是我不知道如何绑定），出现数据连接错误提示，说无法启动应用程序。

[bruce_figo]

在生成连接字符串的时候，有个“所有”选项卡，里面一条“Jet OLEDB:Database
Password”，编辑该值输入，你的数据库密码

[FDSS]

连接字符串如下所示：
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="*.mdb"";Persist Security Info=False;Jet OLEDB:Database Password=******"

[现在还是人类]

Adodc1.ConnectionString = "driver={Microsoft Access Driver (*.mdb)};dsn=Microsoft Access Driver;uid;pwd=" & 数据库密码 & ";dbq=" & 数据库地址

'说明：上面的代码是一行的，因为显示原因变成两行了。
' "数据库地址"是Access的文件地址变量 比如:"C:\001.MDB"
' "数据库密码"是Access数据库的密码变量 比如："123456"
快给分吧

[strongfisher]

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\proCMMS\msDATAformobile.mdb;Persist Security Info=False;Jet OLEDB:Database Password=****

[csdngoodnight]

ADO连接：


工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）

Option Explicit

Dim WithEvents adoRS As Recordset
Dim db As Connection


'提数据事件
Set db = New Connection
db.CursorLocation = adUseClient
db.Open"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\db1.mdb;Jet OLEDB:Database Password=1234;"
' ##########################################
'打开密码是1234的Access2000数据库db1.mdb
'不需要密码，就把Jet OLEDB:Database Password=1234;这段去掉

Set adoRS = New Recordset

adoRS.Open "SELECT * FROM 表", db, adOpenStatic, adLockOptimistic
'赋值给 DataGrid 表
Set DataGrid1.DataSource = adoRS
'表刷新
DataGrid1.Refresh






'添加事件和保存
adoRS.AddNew
'保存
adoRS![字段a] = text1.Text
adoRS![字段b] = text2.Text
adoRS.UpdateBatch adAffectAll

'删除
adoRS.Delete
'重新赋值给表
adoRS.Requery
Set DataGrid1.DataSource = adoRS
DataGrid1.Refresh

'其他相关操作：
'上一条
If Not adoRS.BOF Then adoRS.MovePrevious
If adoRS.BOF And adoRS.RecordCount > 0 Then
'已到最后返回
adoRS.MoveFirst
End If
'下一条
If Not adoRS.EOF Then adoRS.MoveNext '下一条
If adoRS.EOF And adoRS.RecordCount > 0 Then
'已到最后返回
adoRS.MoveLast
End If
'第一条
If Not adoRS.BOF Then adoRS.MoveFirst
'最末
If Not adoRS.EOF Then adoRS.MoveLast