DataSource Controls :: Remove Duplicate Row - Edit Remaining Row?

removing duplicate rows from datatable or (dataset) by columnd ID (unique). Below function is working but I would like to edit/adjust the remaing (former) duplicate row's value, not the ID value btw.

Example:

ID name sport
-------------------------------
356 John Football
357 Johny Hockey
357 Johny Hockey
358 mike Soccer

should be:

ID name sport
--------------------------------------------------------------
356 John Football
357 Johny newFoo Hockey
358 mike Soccer

Public Function RemoveDuplicateRows(ByVal dTable As DataTable, ByVal colName As String) As DataTable

Dim hTable As New Hashtable()
Dim duplicateList As New ArrayList()
For Each drow__1 As DataRow In dTable.Rows
If hTable.Contains(drow__1(colName)) Then
duplicateList.Add(drow__1)
Else
hTable.Add(drow__1(colName), String.Empty)
End If
Next
For Each dRow__2 As DataRow In duplicateList
dTable.Rows.Remove(dRow__2)
Next
Return dTable
End Function