dbLocal = "C:\Deine.mdb"
Set oDB = DBEngine.OpenDatabase("C:\Deine.mdb")

Dim ar, fs As Variant
 
Set fs = CreateObject("Scripting.FileSystemObject")
 
If fs.FileExists(dbLocal) = True Then
    lblStatus.Caption = "Komprimiere Datenbank : " & SplitFileFromPath(dbLocal)
    ar = Split(dbLocal, ".")
 
    CompactDatabase dbLocal, ar(0) & ".$$$"
    Kill dbLocal
    Name ar(0) & ".$$$" As dbLocal
End If