'Der Comparer für den Vergleich von je zwei Datenzeilen
    Public Function ComparerTitelTextQuelle _
        (ByVal r1 As DataRow, ByVal r2 As DataRow) As Integer
 
        'ASC
        If r1("Titel").ToString > r2("Titel").ToString Then Return 1
        If r1("Titel").ToString < r2("Titel").ToString Then Return -1
        'ASC
        If r1("Text").ToString > r2("Text").ToString Then Return 1
        If r1("Text").ToString < r2("Text").ToString Then Return -1
        'DESC
        If r1("Quelle").ToString > r2("Quelle").ToString Then Return -1
        If r1("Quelle").ToString < r2("Quelle").ToString Then Return 1
 
        Return 0
    End Function

Dim byt As Byte = CByte(rndm.Next(48, 122))