---

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