Dim objJE As New JRO.JetEngine
        Dim objFile As System.IO.File
        Dim cConnStr1, cConnStr2, cOriginPath, cTempPath As String
 
        If Not dbConn Is Nothing AndAlso dbConn.State.Open Then dbConn.Close()
 
        cOriginPath = Application.StartupPath & "\data\daten.mdb"
        cTempPath = Application.StartupPath & "\temp\temp.mdb"
        cConnStr1 = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database" & _
          "Password=" & dbpass & ";Data Source=" & cOriginPath & ";Jet" & _
          "OLEDB:System Database=system.mdw;"
        cConnStr2 = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database" & _
        "Password=" & dbpass & ";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