Accessでは、登録したレコードを削除しても、物理的に使用するディスク容量
は変わりません。そこで、定期的に「DBの最適化」処理を行うわけですが、通常、
「ツール」メニューの「データベースユーティリティ」の「最適化/修復」を使用
しますが、VBAのコードを使ってもデータベースを最適化させることが出来ます。
システム終了時に最適化するコードを実行させれば、常に最高のパフォーマンス
でデータベースを参照することができます。

● サンプル　●

Sub Optimization()
    Dim cOrgDB  As String
    Dim cOptDB  As String
    
    ' 最適化をするデータベースのファイル名を指定する
    cOrgDB = "C:\Documents and Settings\sato\My Documents\db2"
    
    ' 最適化済みのデータベースのファイル名を指定する
    cOptDB = "C:\Documents and Settings\sato\My Documents\db2_new"
    
    ' 最適化開始
    DBEngine.CompactDatabase cOrgDB, cOptDB, , dbEncrypt

End Sub

注意：CompactDatabaseメソッドは、閉じているデータベースのコピーと最適化
を行います。開いているデータベースに対して実行するとエラーが発生します。