数据库加密打开

Question

use microsoft.jet.oledb.4.0" 去试一试。

Answer 1

With DBConnect
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Data Source").value = App.Path & "\data.mdb"
    .Properties("Persist Security Info").value = True          '关键是这个.
    .Properties("Jet OLEDB:Database Password").value = "hello"
    .CommandTimeout = 30
End With
Set Mydb = Myws.OpenDatabase(App.Path + "\dan.mdb", False, False, ";pwd=" & Password)

Answer 2

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                          "Jet OLEDB:Database Password=123;" & _
                          "Data Source=" & _    App.Path  "\Local97.mdb"
你看怎么行就OK！！