Compact database by ADO

[tulip]

It is very easy to compact a database by DAO,
DBEngine.CompactDatabase dbInput, dbOutput

I want to use ADO only in my programme, so my question is:
How to compact a database by ADO?