Dim objJE As New JRO.JetEngine
                    Dim objFile As System.IO.File
                    Dim cConnStr1, cConnStr2, cOriginPath, cTempPath  As String
 
                    cOriginPath = "C:\Daten\test.mdb"
                    cTempPath = "C:\Daten\temp.mdb"
                    cConnStr1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
                      & cOriginPath & ";Jet OLEDB:System Database=system.mdw;"
                    cConnStr2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
                    & cTempPath & ";Jet OLEDB:System Database=system.mdw;"
                   OLEDB:System Database=system.mdw;"
                    'DB komprimieren
                    objJE.CompactDatabase(cConnStr1, cConnStr2)
                    'die unkomprimierte DB mit der komprimierte ersetzen
                    objFile.Copy(cTempPath, cOriginPath, True)
                    'die Temporäre DB löschen
                    objFile.Delete(cTempPath)
                    objJE = Nothing
                    objFile = Nothing