Утро доброе!
Такой вопрос. Сделал кнопку выхода:

If MsgBox(" Закрыть базу? ", vbCritical + vbOKCancel + vbDefaultButton2, "ЛИС") = vbOK Then
Application.Quit acQuitSaveAll
End If

Уверяют, что Application.Quit acQuitSaveAll по действию аналогична пункту Выход меню Файл. Однако при нажатии кнопки окно Access исчезает сразу, и у польз-ля может создаться впечатление, что база закрыта, и он, скажем, сразу будет выключать комп. А в это время еще происходит сжатие (стоит галочка "Сжимать при закрытии"). Почему так? Хотелось бы, чтобы окно пропадало только после завершения сжатия, как по нажатию Выход меню Файл.

Да, сработало!

Странно, а в ХЕЛПе пишут:
acQuitPrompt - Displays a dialog box that asks whether you want to save any database objects that have been changed but not saved

Но никакого диалогового окна нет... Ну да ладно, так и лучше!
Спасибо, Alexander G!