Function bCompactMDB (sDatabase As String, bBackup As Integer) As Integer

Dim sNewFile As String
Dim sBakFile As String

     bCompactMDB = False

     MousePointer = 11

     sNewFile = Left$(sDatabase, Len(sDatabase) - 3) & "NEW"

     sBakFile = Left$(sDatabase, Len(sDatabase) - 3) & "BAK"

     On Error GoTo CompactError

     If Dir(sNewFile) <> "" Then

        Kill sNewFile

     End If

     CompactDatabase sDatabase, sNewFile

     If Dir(sBakFile) <> "" Then

       Kill sBakFile

     End If

     If bBackup = True Then

       Name sDatabase As sBakFile

     End If

     If Dir(sDatabase) <> "" Then

       Kill sDatabase

     End If

     Name sNewFile As sDatabase

     bCompactMDB = True

     MousePointer = 0

     Exit Function

CompactError:

     bCompactMDB = False

     MousePointer = True

End Function