高分相求数据库问题？

Question

好何用VB打开加密过的Access数据库？

Answer 1

给个例子:
    Dim g_cnnSql As Connection
    Dim strConnectSetting As String 
    Dim strDBFile as String
        
    Set g_cnnSql = New ADODB.Connection
    If g_cnnSql.State = adStateOpen Then
       g_cnnSql.Close
    End If
    
    strDBFile = App.Path & "\" & "Test.mdb"
    
   strConnectSetting = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
                        "Data Source=" & strDBFile & "; " & _
                        "Persist Security Info=False;" & _
                        "Jet OLEDB:Database Password=Password"
    With g_cnnSql
         .ConnectionString = strConnectSetting
         .CommandTimeout = 30
         .CursorLocation = adUseClient
         .Open
    End With

Answer 2

用ADOCN.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & _
         "DBQ=system.MDB;" & _
         "DefaultDir=" & App.Path & ";" & _
         "UID=admin;PWD=youPassWord;"

Answer 3

用DAO
Set db = OpenDatabase(App.Path & "\data\H.mdb", False, False, ";Pwd=你的数据库密码")