Исправить код в БД access (авторизация в программе) - VB

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

Моя БД называется "Склад" на форме создала ComboBox (раскрывающийся список) Хотелось бы ,чтобы при выборе одного из элементов списка, отображались оределенные кнопки со ссылками. Что-то с циклом у меня. БД прилагаю Всё происходит в форме "Авторизация" При выборе элемента "Неизвестное лицо " ссылка на кнопку8 При Сотрудники ,если в поле ввести пароль сотрудники ,то ссылка на кнопку9 если другой пароль ,то msgbox "неправильный пароль" При Поставщики, если пароль Поставщики, то ссылка на кнопку 10 если другой пароль ,то msgbox "неправильный пароль" нужно найти ошибку,пожалуйста!

Решение задачи: «Исправить код в БД access (авторизация в программе)»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Кнопка7_Click()
Dim i As Integer
'проверка на кол-во попыток
If i = 3 Then
MsgBox "Вы привысили число попыток"
Exit Sub
End If
'проверка логина и пороля
If Поле11 = "Поставщики" And Поле5 = "1234" Then
i = 0
GoTo p1
Else
i = i + 1
MsgBox "Доступ отказан"
Exit Sub
End If
'начало
p1:
MsgBox "Доступ предоставлен"
Кнопка10.Visible = True
Exit Sub
 
If Поле11 = "Сотрудники" And Поле5 = "1111" Then
i = 0
GoTo p2
Else
i = i + 1
MsgBox "Доступ отказан"
Exit Sub
End If
'начало
p2:
MsgBox "Доступ предоставлен"
Кнопка9.Visible = True
Exit Sub
End If
End Sub