Komprimer DB

Nedenstående kode har jeg fra jesperthomsen. Hvordan bruger jeg den? Han skrev at jeg skulle kalde funktion med komprimer (<databasenavn>,<størrelsen>), men det kører ikke rigtigt for mig.

Er der nogen der kan komme med et godt "dummie" beskrivelse på hvordan jeg bruger den. :-)

Public Function Komprimer(ByVal vsFil As String, ByVal vlThreshold As Long)
' Formål    : Foretager en komprimering af den angivne fil, hvis den har overskredet størrelsen
'            angivet ved vlThreshold
' Parametre :
'  vsFil                : Navnet på filen der skal komprimeres
'  vlThreshold          : Den maksimale størrelse. Er filen mindre end Threshold skal der
'                          ikke gøres noget
' Dato      : 9. juli 2001
Dim oFS As FileSystemObject
Dim oFile As File
Dim lOrgSize As Long
Dim lNewSize As Long

  On Error GoTo errHandle

  Set oFS = New FileSystemObject
 
  Set oFile = oFS.GetFile(vsFil)
  lOrgSize = oFile.Size
 
  Set oFile = Nothing ' For at sikre at filen ikke er åben
 
  If lOrgSize > vlThreshold Then
    If Dir(vsFil & "_cmp") <> "" Then
      Kill vsFil & "_cmp" ' Denne oprydning er nødvendig hvis komprimeringen gik galt sidst
    End If
    DBEngine.CompactDatabase vsFil, vsFil & "_cmp"  ' Selve komprimeringen
    oFS.MoveFile vsFil, vsFil & "_tmp" ' Den oprindelige fil flyttes til en tmp-fil
    oFS.MoveFile vsFil & "_cmp", vsFil ' Den komprimerede fil ændres til at være den aktive
    Kill vsFil & "_tmp" ' Temp-filen slettes
  Else
    ' Filen skal ikke komprimeres - størrelsen er ikke overskredet. Ingen besked videre
    ' bare forlad
    Set oFS = Nothing
    Exit Function
  End If
 
  ' Komprimeringen er på plads og der skal ikke håndteres fejl. Opstår der fejl herefter
  ' gør det ikke så meget; der kommer bare ikke nogen statusmail
  On Error Resume Next
   
  Set oFile = Nothing
  Set oFS = Nothing
 
 
  Exit Function
 
errHandle:

  ' Indsæt fejlhåndtering 
End Function