Public Function funCloseDatabase(strMDB As String) As Boolean

On Error GoTo 999 'Назначаем переход по ошибке

funCloseDatabase = False 'Возвращаем результат при ошибке

appAccess.CloseCurrentDatabase 'Закрываем базу данных

appAccess.Quit acQuitSaveAll 'Выходим c сохранением

funCompactDatabase strMDB '<2> Сжимаем базу данных

funCloseDatabase = True 'Возвращаем результат

Exit Function 'Выходим из программы

999:

MsgBox Err.Description 'Сообщаем об ошибке

Err.Clear 'Очищаем поток от ошибок