для a-r-l-e

Public Sub msCompactDatabase()
On Error GoTo ErrHandler
Dim objFileSystem As Object
Dim strCurrentMDBPath As String, strTempMDBPath As String
strCurrentMDBPath = "ПолныйПуть\СжимаемаяБД.mdb"
Set objFileSystem = CreateObject("Scripting.FileSystemObject") 'получаем объект файловой системы
strTempMDBPath = objFileSystem.GetTempName 'создаем временный файл и получаем его имя
DBEngine.CompactDatabase strCurrentMDBPath, strTempMDBPath, dbLangCyrillic 'сжимаем БД в новый (временный) файл
objFileSystem.CopyFile strTempMDBPath, strCurrentMDBPath, True 'перезаписываем временный файл вместо постоянного
Kill strTempMDBPath 'удаляем временный файл
Set objFileSystem = Nothing
Exit Sub
ErrHandler:
'обработчик ошибок
' . . .
Resume Next
End Sub

для Alexus12
Не думаю, что галка в настройках лучший выход, ибо сжимается БД кода нада и кода не надо, заставляя юзеров нервничать в ожидании...
Лучше, имхо, производить данную процедуру раз в неделю, ну или по другому графику...