你可以如何透過 Jet and Replication Objects (JRO) 將 Access 資料
庫加上密碼，你所要做的只是在壓縮資料庫時將 OLEDB:Database Password
屬性加入到目的資料庫的連接字串，以下為 VB 程式碼範例：

Dim je As New JRO.JetEngine

je.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Microsoft Office\Office\Samples\Northwind.mdb",
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Microsoft
Office\Office\Samples\Northwind2.mdb;Jet OLEDB:Database Password=password;"