VB中处理加了密码的MDB文件

当MDB 文件加了密码，直接由   Access   打印MDB文件时，会出现密码对话框，询问密码。但是若要由   VB   程序中打印，必須更改   VB程序中打开MDB文件的指令，否则会出现错误信息！以下针对各种情况，分別加以说明：  
   
  1、   使用   DAO   命令打开MDB文件：OpenDatabase    
  若要由程序中打开，命令如下：  
  Set   DB   =   OpenDatabase(DatabaseName,   False,   False,   ";Pwd=密码")  
  实例：  
  Dim   db   As   Database  
  Set   db   =   OpenDatabase("C:\db1.mdb",   False,   False,   ";Pwd=1")  
  若要使用   Data   控件，设定方法如下：  
  1、设定   DatabaseName   属性   (MDB文件名称   /   含路径)  
  2、设定   Connect   属性，將预设的字串   "Access"   改成   ";Pwd=密码"   (不含双引号)  
  3、设定   RecordSource   属性    
   
  　  
  2、  
  　  
  使用   ADO   命令打开MDB文件：  
   
  在使用   ADODC   或   DataEnvironment   设定好之后，直接利用属性窗口修改   ConnectionString   属性(附属于   ADODC)   或   ConnectionSource   属性(附属于   DataEnvironment   的   Connection   控件)，修改的方法是在属性之后增加以下参数：  
  ;Jet   OLEDB:Database   Password=密码  
   
  除了   ADODC   及   DataEnvironment   之外，   直接使用   ADO   控件來打开含有密码的   mdb   MDB文件，设定参数的方法也是相同的。  
   
  　  
  3、  
  　  
  压缩加了密码的MDB文件：CompactDatabase  
   
  DBEngine.CompactDat