Private Sub Кнопка11_Click()
    Dim rst As DAO.Recordset 'DAO - данные Access - чтение и запись, sql - н/д'
    Set rst = CurrentDb.OpenRecordset("Сотрудники", dbOpenDynaset)  'Указание с какой таблицей будет работать Ваш сценарий'
    With rst
       If IsNull(login.Value) Then 'Условие если поле выпадающего списка на момент клика пустое, то'
           MsgBox "Ошибка входа! Выберите пользователя."
       Else:
           .FindFirst ("Код=" & login.Value) 'Если поле не пустое, то производится поск на соответствие с данными таблицы Сотрудники'
           If .NoMatch Then 'Если нет совпадений, то'
               MsgBox "Ошибка входа! О данном пользователе нет информации" 'Вывод сообщения об ошибке'
               Exit Sub
           Else:
               If password.Value <> .Fields("Пароль").Value Then 'Условие для сравнения введенных данных в поле для пароля с колонкой пароль в таблице'
                   MsgBox "Пароль неправильный или не соответствует имени пользователя"
                   Exit Sub
               End If
               If IsNull(password.Value) Then ' Условие для ошибки в случае, если поле для пароля не заполненное
                   MsgBox "Вы не ввели пароль!" 'Вывод сообщения об ошибке'
                   Exit Sub
               End If
               DoCmd.Close 'Команда на закрытие текущей формы, в данном случае формы входа и переход к нужной форме'
               Select Case .Fields("Должность").Value
                   Case "Заведующий"
                       DoCmd.OpenForm "Отряды с подчинённой"
                   Case "Воспитатель"
                       DoCmd.OpenForm "Родители"
               End Select
           End If
       End If
    End With
    rst.Close
    Set rst = Nothing
End Sub