Как закрыть приложение? Пользователь жмёт по крестику, в момент работы цикла. - VB

Формулировка задачи:

Всем здрасьте.
Цель такая: если пользователь нажал кнопку

закрыть окно

, то надо прервать цикл, и всё закрыть и завершить программу
Есть глобальная переменная

rabota

, перед началом цикла она истина
программа, например, читает таблицу,
скажем есть цикл

Do Until RS.EOF()
        i = i + 1
If rabota = False Then Exit Do
        If (i Mod 10) = 0 Then
            DoEvents
        End If
        ...
        RS.MoveNext
    Loop
    
RS.Close:   Set RS = Nothing
db.Close:   Set db = Nothing

благодаря команде DoEvents пользователь всё-таки может нажать на форме системную кнопку ЗАКРЫТЬ
в процедуре Form_QueryUnload я пишу

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    rabota = False
    DoEvents
End Sub

но цикл по всей видимости не прерывается и программа где-то висит в памяти, хотя на экране форма не видно
Подскажите что-нибудь. Спасибо.

Решение задачи: «Как закрыть приложение? Пользователь жмёт по крестику, в момент работы цикла.»

textual
                            Листинг программы 
                        

                            Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    rabota = False
    DoEvents
Я ДОБАВИЛ
Unload me
End
End Sub

                        