Else
                USER_GROUP = DLookup("USER_GROUP", "UsysUsers", "USER_LOGIN ='" & Me.USER_LOGIN.Value & "'")
                DoCmd.Close

Private Sub Кнопка5_Click()
Dim USER_GROUP As Integer

        If IsNull(Me.USER_LOGIN) Then
            MsgBox "Вы не ввели логин пользователя", vbInformation, "Ошибка"
            Me.USER_LOGIN.SetFocus
        ElseIf IsNull(Me.USER_PASSWORD) Then
            MsgBox "Вы не ввели пароль пользователя", vbInformation, "Ошибка"
            Me.USER_PASSWORD.SetFocus
        Else
        'process
            If (IsNull(DLookup("USER_LOGIN", "UsysUsers", "USER_LOGIN ='" & Me.USER_LOGIN.Value & "'"))) Or _
                (IsNull(DLookup("USER_PASSWORD", "UsysUsers", "USER_PASSWORD ='" & Me.USER_PASSWORD.Value & "'"))) Then
                    MsgBox "Вы ввели не верный логин или пароль", vbInformation, "Ошибка"
        
            Else
               USER_GROUP = DLookup("USER_GROUP", "UsysUsers", "USER_LOGIN ='" & Me.USER_LOGIN.Value & "'")
                DoCmd.Close
                    If USER_GROUP = "" Then
                        DoCmd.OpenForm "UsysAdmin"
                    Else
                        DoCmd.OpenForm "main"
                    End If
           End If
        End If
End Sub