Private Function doppeltlöschen(ByVal dt As DataTable, ByVal _
      strEintragPrüfen1 As String) As DataTable
        Dim dtTmp As New DataTable()
        Dim Id As String
        dtTmp = dt.Clone
        Dim ndr As DataRowView
 
        dt.DefaultView.Sort = strEintragPrüfen1
 
        For Each ndr In dt.DefaultView
            If Id = "" OrElse Not Id = Convert.ToString(ndr(strEintragPrüfen1)) _
              Then
                dtTmp.ImportRow(ndr.Row)
                Id = ndr(strEintragPrüfen1)
            End If
        Next ndr
 
        Return dtTmp
    End Function
 
    Private Function doppeltlöschen(ByVal dt As DataTable, ByVal _
      strEintragPrüfen1 As String, ByVal strEintragPrüfen2 As String) As _
      DataTable
        Dim dtTmp As New DataTable()
        Dim Id, id2 As String
        dtTmp = dt.Clone
        Dim ndr As DataRowView
 
        dt.DefaultView.Sort = strEintragPrüfen1
 
        For Each ndr In dt.DefaultView
            If Id = "" OrElse Not Id = Convert.ToString(ndr(strEintragPrüfen1)) _
              OrElse Not id2 = Convert.ToString(ndr(strEintragPrüfen2)) Then
                dtTmp.ImportRow(ndr.Row)
                Id = ndr(strEintragPrüfen1)
                id2 = ndr(strEintragPrüfen2)
            End If
        Next ndr
 
        Return dtTmp
    End Function
 
    Private Function doppeltlöschen(ByVal dt As DataTable, ByVal _
      strEintragPrüfen As String, ByVal strEintragPrüfen2 As String, ByVal _
      strEintragPrüfen3 As String) As DataTable
        Dim dtTmp As New DataTable()
        Dim Id, id2, id3 As String
        dtTmp = dt.Clone
        Dim ndr As DataRowView
 
        dt.DefaultView.Sort = strEintragPrüfen
 
        For Each ndr In dt.DefaultView
            If Id = "" OrElse Not Id = Convert.ToString(ndr(strEintragPrüfen)) _
              OrElse Not id2 = Convert.ToString(ndr(strEintragPrüfen2)) OrElse _
              Not id3 = Convert.ToString(ndr(strEintragPrüfen3)) Then
                dtTmp.ImportRow(ndr.Row)
                Id = ndr(strEintragPrüfen)
                id2 = ndr(strEintragPrüfen2)
                id3 = ndr(strEintragPrüfen3)
            End If
        Next ndr
 
        Return dtTmp
    End Function
 
    Private Function doppeltlöschen(ByVal dt As DataTable, ByVal _
      strEintragPrüfen1 As String, ByVal strEintragPrüfen2 As String, ByVal _
      strEintragPrüfen3 As String, ByVal strEintragPrüfen4 As String) As _
      DataTable
        Dim dtTmp As New DataTable()
        Dim Id, id2, id3, id4 As String
        dtTmp = dt.Clone
        Dim ndr As DataRowView
 
        dt.DefaultView.Sort = strEintragPrüfen1
 
        For Each ndr In dt.DefaultView
            If Id = "" OrElse Not Id = Convert.ToString(ndr(strEintragPrüfen1)) _
              OrElse Not id2 = Convert.ToString(ndr(strEintragPrüfen2)) OrElse _
              Not id3 = Convert.ToString(ndr(strEintragPrüfen3)) OrElse Not id4 _
              = Convert.ToString(ndr(strEintragPrüfen4)) Then
                dtTmp.ImportRow(ndr.Row)
                Id = ndr(strEintragPrüfen1)
                id2 = ndr(strEintragPrüfen2)
                id3 = ndr(strEintragPrüfen3)
                id4 = ndr(strEintragPrüfen4)
            End If
        Next ndr
 
        Return dtTmp
    End Function
 
 
 
        Dim dt As New DataTable()
 
        '// Füllen	
 
 
        dt.Columns.Add("Datum")
        dt.Columns.Add("Vorname")
        dt.Columns.Add("Nachname")
 
        Dim dr As DataRow
        dr = dt.NewRow
        dr("Datum") = "1.1.08"
        dr("Vorname") = "aaa"
        dr("Nachname") = "bbb"
        dt.Rows.Add(dr)
 
        dr = dt.NewRow
        dr("Datum") = "1.5.08"
        dr("Vorname") = "ccc"
        dr("Nachname") = "ddd"
        dt.Rows.Add(dr)
 
        dr = dt.NewRow
        dr("Datum") = "1.2.08"
        dr("Vorname") = "aaa"
        dr("Nachname") = "bbb"
        dt.Rows.Add(dr)
        ' usw... 
 
 
        dt = doppeltlöschen(dt, "Nachname", "Vorname")
 
        MsgBox(dt.Rows(0).Item(2))
        MsgBox(dt.Rows(1).Item(2))
        MsgBox(dt.Rows(2).Item(2))