处理加了密码的MDB文件

源代码网整理以下　　当 MDB 文件加了密码，直接由 Access 打印MDB文件时，会出现密码对话框，询问密码。但是若要由 VB 程序中打印，必須更改 VB 程序中打开MDB文件的指令，否则会出现错误信息！以下针对各种情况，分別加以说明：

源代码网整理以下　　1、 使用 DAO 命令打开MDB文件：OpenDatabase

源代码网整理以下　　若要由程序中打开，命令如下：

源代码网整理以下　　Set DB = OpenDatabase(DatabaseName, False, False, ";Pwd=密码")
   
　　实例：

源代码网整理以下　　若要使用 Data 控件，设定方法如下：

源代码网整理以下　　1、设定 DatabaseName 属性 (MDB文件名称 / 含路径)
　　2、设定 Connect 属性，將预设的字串 "Access" 改成 ";Pwd=密码" (不含双引号)
　　3、设定 RecordSource 属性

源代码网整理以下　　2、使用 ADO 命令打开MDB文件：

源代码网整理以下　　除了 ADODC 及 DataEnvironment 之外， 直接使用 ADO 控件來打开含有密码的 mdb MDB文件，设定参数的方法也是相同的。

源代码网整理以下　　3、压缩加了密码的MDB文件：CompactDatabase

源代码网整理以下　　DBEngine.CompactDataBase "原MDB文件", "新MDB文件", , , ";pwd=密码"

源代码网整理以下　　实例例如：

源代码网整理以下　　DBEngine.CompactDatabase "C:Db1.mdb", "C:Db2.mdb", , , ";pwd=1"

源代码网整理以下　　4、修复加了密码的MDB文件： RepairDatabase

源代码网整理以下　　不必理会MDB文件设定的密码！

源代码网整理以下　　DBEngine.RepairDataBase "MDB文件"

源代码网整理以下　　实例例如：

源代码网整理以下　　DBEngine.RepairDataBase "C:Db1.mdb"