Pack na MDB chrez VB for Access

Interesuva me kak moga da chrez VB v Access sreda da izvikam funkciata pomestena v Tools\Database Utilities\Compact and Repair Database...
Mersi mnogo, predvaritelno.

Здрасти.
Първо базата трябва да е затворена.
И после си избираш някой от методите:
DBEngine.RepairDatabase "Старо име на базата" , "Ново име на базата"
DBEngine.CompactDatabase "Старо име на базата" , "Ново име на базата"
и така...
Подробно са описани в Object browser.
Ако искаш автоматично да се извършва CompactDatabase при затваряне - има такава опция в Tools\Options\General - CompactOnClose