Dim qUelle, dbName As String
Dim aR, fS As Variant
 
dbName = App.Path & "\Daten\Data.mdb"
qUelle = dbName
aR = Split(qUelle, ".")
 
On Error Resume Next
Kill aR(0) & ".$$$"
 
CompactDatabase qUelle, aR(0) & ".$$$"
Kill qUelle
Name aR(0) & ".$$$" As qUelle

Frank