<Flags()> Private Enum Rechte
        Ausführen = 1
        Schreiben = 2
        Lesen = 4
    End Enum

        Dim dt As DataTable
        dt = New DataTable
        Dim r As DataRow
 
        dt.Columns.Add("User", GetType(Integer))
        dt.Columns.Add("Rechte", GetType(Integer))
 
        r = dt.NewRow
        r(0) = 1
        r(1) = Rechte.Ausführen Or Rechte.Lesen
        dt.Rows.Add(r)
 
        r = dt.NewRow
        r(0) = 2
        r(1) = Rechte.Ausführen Or Rechte.Schreiben
        dt.Rows.Add(r)
 
        r = dt.NewRow
        r(0) = 3
        r(1) = Rechte.Ausführen Or Rechte.Schreiben Or Rechte.Lesen
        dt.Rows.Add(r)
	'// usw.

  Dim r() As DataRow = dt.Select("")
        For Each dr As DataRow In r
            If CInt(dr(1)) And Rechte.Lesen Then
                Debug.WriteLine(dr(0).ToString)
            End If
        Next

        Dim filter As String = "Recht = XXX" '// z.b. nur alle User die 
        ' Leserechte (1) haben
        Dim r() As DataRow = dt.Select(filter)
        For Each dr As DataRow In r
            Debug.WriteLine(dr(0).ToString)
        Next