スクリプトでMDB(閉じている)の最適化を行う。

'一時ファイルは、オリジナルファイル名にtmpを付与した名前
'処理後にオリジナルを削除して、一時ファイルをオリジナルに置き換える
sTmp = "xxxxxxx.accdb"
DBEngine.CompactDatabase sTmp, sTmp & "tmp"
Kill sTmp
Name sTmp & "tmp" As sTmp