Private Sub Komprimierung (Byval DBName As String)
 
    If Dir(DBName & ".TMP") <> "" Then Kill DBName & ".TMP"
 
    DBEngine.CompactDatabase DBName, DBName & ".TMP"
 
    Kill DBName
 
    ' Umbenennen
    Name DBName & ".TMP" As DBName
End Sub