CodeItBetter Programming Another VB Programming Blog

'Database - How to compact an Access Database from VB

'Add reference to DAO (Project -> References, select the Microsoft DAO 3.6 (or 3.51) Object Library)

'If you get "Unrecognized Database format" error message:

'If you using database that made in Access 2000 and you don't have Microsoft DAO 3.6 Object Library reference,
'click on browse, and select the file C:\Program Files\Common Files\Microsoft Shared\Dao\dao360.dll
'(If you have Access 2000 installed in your computer you have this file.)

'This will add Microsoft DAO 3.6 Object Library reference to your project.

Private Sub Main()
    DBEngine.CompactDatabase "C:\Temp\Test.mdb", "C:\Temp\Test1.mdb"
End Sub