как записать фрагмент программы,чтобы после 3 введёных неправильно паролей она закрывалась?

[Draiv93]

...
Do
Пароль=InputBox("Введите пароль")
Loop Until Пароль="Иван Иванович"

как записать фрагмент программы,чтобы после 3 введёных неправильно паролей она закрывалась?(нужно несколько вариантов!)

[R Dmitry]

Сообщение от Draiv93

...
Do
Пароль=InputBox("Введите пароль")
Loop Until Пароль="Иван Иванович"

как записать фрагмент программы,чтобы после 3 введёных неправильно паролей она закрывалась?(нужно несколько вариантов!)

Do
If x = 3 Then DoCmd.Quit
Пароль=InputBox("Введите пароль")
x = x + 1
Loop Until Пароль="Иван Иванович"

остальные сами

[Draiv93]

спасибо!