用ADO控件如何打开加密的数据库？？

Question

Dim cou As ADODB.Connection
Dim cour As ADODB.Recordset
Set cou = New ADODB.Connection
Set cour = New ADODB.Recordset
cou.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\class.mdb;Persist Security Info=False"
cou.Open
cour.Open "tables", cou, adOpenKeyset, adLockOptimistic, adCmdTable

Answer 1

cou.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\class.mdb;Persist Security Info=False;UID=你的用户名;PWD=你的数据库密码"

Answer 2

如果是设置了数据库口令，可以这么写
"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Jet OlEDB:Database Password=yourpassword;Data Source=your.mdb"