Public Class ClassUser
    Public Shared Function Check_User_Exists_in_UMGroups()
        Try
            Dim sel = String.Format("select T1.* from TBDD_GROUPS T, TBDD_GROUPS_USER T1 WHERE T.GUID = T1.GROUP_ID AND T1.USER_ID = {0} AND UPPER(T.NAME) = 'UM_ADMINS'", USER_ID)
            Dim DT As DataTable = ClassDatabase.Return_Datatable(sel)
            If Not IsNothing(DT) Then
                If DT.Rows.Count = 1 Then
                    LOGGER.Debug(" >> User is in UM_ADMINS-Group....", False)
                    Return True
                Else
                    Return False
                End If
            Else
                Return False
            End If

        Catch ex As Exception
            LOGGER.Error(ex)
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Check_User_Exists_in_UMGroups:")
            Return False
        End Try
    End Function
End Class