To compact MDB databases using ADO, just include a reference to the ‘Microsoft Jet and Replication Objects 2.6 Library’ (distributed with the MDAC 2.6 package) in your VB project. The code folows:
Dim Jro As New jro.JetEngineJro.CompactDatabase