Dim dt As New DataTable 
 
		'// Füllen	
		dt.Columns.Add ("Id")
		dt.Columns.Add ("Vorname")
		dt.Columns.Add ("Nachname")
 
		Dim dr As DataRow 
		dr = dt.NewRow 
		dr("Id") = 1
		dr("Vorname") = "...."
		dr("Nachname") = "..."
		dt.Rows.Add (dr)
		' usw... 
 
		Dim dtTmp As New DataTable
		Dim Id As Integer = -1
		dtTmp = dt.Clone 
		For Each r As DataRow in dt.Rows
			If Id = -1 OrElse Not ID = Integer.Parse(r("Id")) Then
			  dtTmp.ImportRow(r)
			  Id = Integer.Parse(r("Id").ToString)
			End If
		Next
 
		Me.dataGrid1.DataSource = dtTmp