Public Class frmSelectRows
 
 
    Dim dtOrg As New DataTable
    Dim dtDistinct As DataTable
    Dim bsDistinct As New BindingSource
 
    Dim dgv As New DataGridView With {.Parent = Me}
 
 
    Private Sub frmSelectRows_Load(sender As System.Object, _
                                e As System.EventArgs) Handles MyBase.Load
 
        'Testdaten (statt der Angaben aus Excel)
        With dtOrg.Columns
            .Add("Address", GetType(String))
            .Add("Whatever", GetType(String))
            .Add("TimeStamp", GetType(Date))
        End With
 
        Dim rndm As New Random(12345)
        Dim adr() As String = {"AAA", "BBB", "CCC", "DDD", "EEE"}
        For i As Integer = 0 To 100
            dtOrg.Rows.Add(adr(rndm.Next(adr.Length)), _
                           "y<xcxycvxcvxc", Now.AddMinutes(rndm.Next(0, 5)))
        Next i
 
        'Überttragung der Datensätze
        dtDistinct = dtOrg.Clone()
        bsDistinct.DataSource = dtDistinct
 
        For i As Integer = 0 To dtOrg.Rows.Count - 1
            bsDistinct.Filter = _
            dtDistinct.Columns(0).ColumnName & _
                 "='" & dtOrg.Rows(i).Item(0).ToString & "'"
 
            If bsDistinct.Count = 0 Then
                'Spalteninhalt in Column Address noch nicht vorhanden .... 
                dtDistinct.Rows.Add(dtOrg.Rows(i).ItemArray)
            End If
        Next i
 
        bsDistinct.Filter = ""
        'Sätze anzeigen
        dgv.DataSource = bsDistinct
    End Sub
End Class