Access ADO访问加密码的mdb数据库已成功解决

Access ADO访问加密码的mdb数据库的解决办法：

前些日子，为这个问题给卡住了，这两天终于找到了解决方案。

使用jet oledb:database password=password 来连接

如果要使用系统的工作组安全文件mdw,则再加上工作组文件路径

dim cn as adodb.connection
set cn=new adodb.connection

cn.provider="microsoft.jet.oledb.4.0"
connection.connectionstring="data source=" c:\db1.mdb" & _ 
";jet oledb:database password=password;jet oledb:system database=" & _ 
"c:=windows\system\system.mdw"
connection.open

以上程序虽说已可用，但不灵活，各位看到没有最后一句
jet oledb:system database= c:=windows\system\system.mdw
这是在windows98下用的，在windows2000系统下system.mdw不是在system目录下，而是在别的目录中，各位有什么办法让Access自已默认到这个档案？

tmtony
获取系统目录，可以使用API来实现.

Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
     Dim WindowsDirectory As String, SystemDirectory As String, x As Long
     WindowsDirectory = Space(255)
     SystemDirectory = Space(255) 
     x = GetWindowsDirectory(WindowsDirectory, 255)
     x = GetSystemDirectory(SystemDirectory, 255)
     MsgBox "Windows的安装目录是:" + WindowsDirectory+",系统目录是:" + SystemDirectory

zhuyiwen
为何一定要用系统的安全数据库？

yuab
Tmtony,真行，API用得真是好。谢谢！

(ADO_RDO-相关文章技巧链接)：
连接加密的Access数据库
用代码通过ODBC刷新链接（mdb+SQL SEVER2000）
打开带密码的数据库/修改密码/创建组和用户
处理加了密码的MDB文件
VB连接ACCESS数据库实例