Когда-то видел этот вопрос в форуме и способ упаковки таблиц прогаммно там приводился, но что-то никак не могу найти этого топика. Никто не подскажет как можно это организовать через ADO?

А то, нашел один очень умный пример, но мне почему-то кажется, что это не самый лучший выход.

'Закрываем БД
Data1.Database.Close
DBEngine.CompactDatabase "c:\biblio.mdb", "c:\new.mdb"
'Уничтоваем старую БД
Kill "c:\biblio.mdb"
'Присваиваем полученной, 'сжатой' БД
'ее прежнее имя
Dim OldDB
Dim NewDB
OldDB = "c:\new.mdb"
NewDB = "c:\biblio.mdb"
Name OldDB As NewDB

http://sharig.webzone.ru/category/db/db02.htm

Ж-) Как?