Dim DbE As DAO.DBEngine
Set DbE = New DBEngine
Call DbE.CompactDatabase([SourceConnection], [DestConnection])
Set DbE = Nothing

Пути задавать полные (c:\asd\db.mdb). В итоге появится вторая база в сжатом виде.

[SourceConnection] - Строковое значение, задающее соединение с исходной базой данных, которую требуется сжать. Если база данных, указанная в строке SourceConnection, уже открыта, возникает ошибка.

[DestConnection] - Строковое значение, задающее соединение с конечной базой данных, которая создается при сжатии. Если база данных, указанная в строке DestConnection, уже существует либо существует файл с тем же именем, возникает ошибка.