连接字符串的问题

Question

用Adodc控件生成连接字符串（Access）为：“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=***.mdb;Persist Security Info=False”，但如果给Access加上密码，就死活连不上了（在测试连接的时候，用户：Admin；密码：自己设置，测试出现错误），怎么回事？

Answer 1

Adodc1.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data source =数据库.mdb;Persist Security Info=False;Jet OLEDB:Database Password=密码"

Answer 2

Option Explicit'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()
    rs.Open "SELECT * FROM TABLENAME WHERE NAME = '" & txtName.Text & "'", cn, adOpenDynamic, adLockOptimistic
        If Not rs.EOF Then
            Label1.Caption = rs!ID
            Label2.Caption = rs!Memo
        End If
       
        rs.AddNew
        rs!ID = "编号"
        rs!Memo = "备注"
    rs.Update
End SubPrivate Sub Form_Load()
    cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _
        App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
        "DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
        "MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
    "Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"
    cn.Open
    '查询字符串可以上这里查
    'http://www.connectionstrings.com/
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Answer 3

这样程序是能连接了，可是Adodc控件里面，用“测试连接”这个功能的时候，为什么出错呢？

Answer 4

没有密码。这是代码连接的，你在窗体上放个ADO控件就行了
（adodc1）