當 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:.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.CompactDataBase "原MDB文件", "新MDB文件", , , ";pwd=密碼"

實例例如：

DBEngine.CompactDatabase "C:.mdb", "C:.mdb", , , ";pwd=1"



4、修復加了密碼的MDB文件： RepairDatabase

不必理會MDB文件設定的密碼！

DBEngine.RepairDataBase "MDB文件"