Function Kompakt()
Dim StaroIme As String
Dim NovoIme As String

'On Error Resume Next

StaroIme ="Imesa putanjom do be baze"
NovoIme = "Putanjadobebaze "\Nova.mdb"
    If Dir(NovoIme) <> "" Then _
        Kill NovoIme
    DBEngine.CompactDatabase StaroIme, _
        NovoIme
        Kill StaroIme
        Name NovoIme As StaroIme
MsgBox "Baza je servisirana"
End Function