---

Private Sub btn_Login_Click()
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim role As String
    Dim menID As Variant

    ' 1. Ищем пользователя
    strSQL = "SELECT * FROM Пользователи WHERE Логин = '" & Me.txt_Login & "' AND Пароль = '" & Me.txt_Password & "'"
    Set rs = CurrentDb.OpenRecordset(strSQL)

    If rs.EOF Then
        MsgBox "Неверный логин или пароль", vbCritical
        Me.txt_Password = Null
        Exit Sub
    Else
        ' Авторизация успешна
        role = rs!Роль
        menID = Nz(rs!КодМенеджера, 0)   ' Nz — чтобы не было Null
    End If

    rs.Close
    Set rs = Nothing

    ' 2. Сохраняем глобальные переменные
    TempVars!CurrentRole = role
    TempVars!CurrentMgrID = menID

    ' 3. Открываем главную форму и закрываем вход
    DoCmd.Close acForm, "frm_Login"
    DoCmd.OpenForm "frm_MainMenu"
End Sub