利用ADO打开加密的Access数据库文件

在Access中， 可以用链接表方式方便地连接后台数据库。

当然也可以用ADO来读取数据，而且速度会比链接表更加快。

如何用ADO打开加密的Access数据库呢？

下面源码通过ADO打开数据库“建表”，“建表”数据库密码为“123”，读取表“职务”的记录总数。

Public Sub OpenAccess()
    Dim strConn As String
    Dim Rs As New ADODB.Recordset
  '  strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\建表.accdb;Persist Security Info=False;Jet OLEDB:database Password='123';" '2003版本
     strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & CurrentProject.Path & "\建表.accdb;Persist Security Info=False;jet OLEDB:Database Password='123';" '2007及以上版本
   
    Rs.Open "Select * from 职务", strConn, adOpenKeyset, adLockOptimistic
    MsgBox Rs.RecordCount
    Set Rs = Nothing
End Sub

“建表”数据库，职务表记录数如下：