Public Sub CompressDB(sFilename As String)
 
  Dim Cn As New ADODB.Connection
  Dim CnTemp As New ADODB.Connection
  Dim dbEng As New JRO.JetEngine
 
  ' Quelldatenbank (Provider)
  Cn.Provider = "Microsoft.Jet.OLEDB.3.51"
 
  ' Datenbank-Dateiname
  ' (z.B. C:\Temp\Data.mdb)
  Cn.Properties("Data Source") = sFilename
 
  ' Temporäre Datenbank, die die komprimierten Daten enthält
  CnTemp.Provider = "Microsoft.Jet.OLEDB.3.51"
  CnTemp.Properties("Data Source") = "C:\Temp\CompData.mdb"
 
  ' Komprimiervorgang ausführen
  dbEng.CompactDatabase Cn, CnTemp
 
  ' "alte" Datenbank löschen
  Kill sFilename
 
  ' Neue komprimierte Datenbank umbenennen
  Name "C:\Temp\CompData.mdb" As sFilename
End Sub