Dim dict As New Dictionary(Of String, Object)
    Dim lodr As New List(Of DataRow)
    For Each dr1 As DataRow In dt.Rows
        Dim k As String = dr1("id").ToString() & "/" & dr1("data").ToString()
        If dict.ContainsKey(k) Then
            lodr.Add(dr1)
        Else
            dict.Add(k, Nothing)
        End If
    Next
 
    For Each dr1 As DataRow In lodr
        dt.Rows.Remove(dr1)
    Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist