怎样连接,设置密码的 Access 数据库

Question

怎样连接,设置密码的 Access　数据库 连接字符串，怎么写?

Answer 1

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;Jet OLEDB:Database Password=MyDbPassword;"

Answer 2

'引用ADO("工程"/"引用"/Microsoft ActiveX Data Objects 2.X Library)Private Sub Command1_Click()
    Dim cn As New ADODB.Connection, rs As New ADODB.Recordset    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\userdata.mdb;Jet OLEDB:DataBase password=a1234;"
    
    rs.CursorLocation = adUseClient    
    rs.Open "Select * From userdata", cn, adOpenDynamic, adLockOptimistic
    
    If Not rs.EOF Then
        Text1.Text = rs.Fields("uname")
        Text2.Text = rs.Fields("upsw")
    End If
    
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub