Dim dt As New DataTable()
 
        '// Füllen	
 
 
        dt.Columns.Add("art")
        dt.Columns.Add("Vorname")
        dt.Columns.Add("Nachname")
 
        Dim dr As DataRow
        dr = dt.NewRow
        dr("art") = "test"
        dr("Vorname") = "aaa"
        dr("Nachname") = "bbb"
        dt.Rows.Add(dr)
 
        dr = dt.NewRow
        dr("art") = "test2"
        dr("Vorname") = "ccc"
        dr("Nachname") = "ddd"
        dt.Rows.Add(dr)
 
        dr = dt.NewRow
        dr("art") = "test"
        dr("Vorname") = "aaa"
        dr("Nachname") = "bbb"
        dt.Rows.Add(dr)
        ' usw... 
 
        MsgBox(dt.Rows(2).Item(0))
 
        Dim dtTmp As New DataTable()
        Dim Id As String ' = -1
        dtTmp = dt.Clone
        Dim ndr As DataRow
        For Each ndr In dt.Rows
            If Id = "" OrElse Not Id = ndr("art") Then
                dtTmp.ImportRow(ndr)
                Id = ndr("art")
            End If
        Next ndr
 
        dt = dtTmp
        MsgBox(dt.Rows(2).Item(0))