compact a msaccess db

[Shuja Ali]

Or else Use Microsoft JRO.

Add a reference to Microsoft Jet and Replication Objects 2.x Library by opening Project Menu. And then use this function

Public Function compactRepairMDB(ByVal sourceMDBPath As String, ByVal targetMDBPath As String) As Boolean
    Dim jetReplicationObject As JRO.JetEngine
    Set jetReplicationObject = New JRO.JetEngine
    jetReplicationObject.CompactDatabase _
        "Provider=Microsoft.Jet.OleDB.4.0;Data Source=" _
        & sourceMDBPath, "Provider=Microsoft.Jet.OleDB.4.0;Data Source=" _
        & targetMDBPath
    compactRepairMDB = True
    Set jetReplicationObject = Nothing
    Exit Function
CompactErr:
    compactRepairMDB = False
End Function

You can use this function like this

JetReplication.compactRepairMDB("C:\db1.mdb", "C:\db2.mdb")