How to compact the database in VBA?

I read in some of the messages that 'autonumber' will reuse the deleted
number after compacted. How can we do it in code?
Thanks. ming

No, it only picks up at the last number. And if you're looking for
autonumbers not to have gaps, you'll have to roll that yourself. That
question has been asked millions of times. The standard response is
that an autonumber field guarantees *uniqueness*, nothing more.
Besides, it's a meaningless number - just a way of relating records in
one table to records in another.