Курсор Мыши (MousePointer) - Например показать "часики" на время выполнения

В обычной ситуации Access и сам часы показывает неплохо - но если уж использовать это - то главное не забыть возвращать нормальный курсор (особенно при возникновении ошибок)- ибо часами по кнопкам щелкать не удобно.... :)

    Screen.MousePointer = 11 ' Курсор = часы.
	   ' Инструкци ..
    Screen.MousePointer = 1 ' Вернуть обычный курсор

Или так:

On Error GoTo ErrorPoint
        DoCmd.Hourglass True   ' Курсор = часы
        '.. Инструкци ...
        DoCmd.Hourglass False  ' Вернуть обычный курсор
        Exit Sub

ErrorPoint:
   DoCmd.Hourglass False       ' Вернуть обычный курсор
   MsgBox Err.Description