vb에서는 아래와 같이 합니다
Public Function CompactADODB(dbasePath As String)

   

    Dim TempFile As String, JRO As JRO.JetEngine

    Set JRO = New JRO.JetEngine

  

    TempFile = "c:\database\temp.mdb"

    If Dir(TempFile) <> "" Then Kill TempFile

    JRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbasePath, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & TempFile

    If Dir(dbasePath) <> "" Then Kill dbasePath

    Name TempFile As dbasePath

    Set JRO = Nothing

   

End Function

Private Sub Form_Load()
    CompactADODB ("c:\database\db2.mdb")
    End
End Sub