---

Private Sub btn_Login_Click()
    On Error GoTo Err_Handler
    
    Dim rs As Object
    Dim strSQL As String
    
    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
        Me.txt_Password.SetFocus
        rs.Close
        Set rs = Nothing
        Exit Sub
    Else
        TempVars!CurrentRole = rs!Роль
        TempVars!CurrentMgrID = Nz(rs!КодМенеджера, 0)
        rs.Close
        Set rs = Nothing
        DoCmd.Close acForm, "frm_Login"
        DoCmd.OpenForm "frm_MainMenu"
    End If
    
    Exit Sub
    
Err_Handler:
    MsgBox "Ошибка: " & Err.Description, vbCritical
End Sub