Try this link (its in c#, but if you need the VB code, i translated it below)

http://www.mastercoder.net/viewtopic.php?t=44

VB Code:
  1. Dim distinctVal As Integer = 0
  2. Dim row As DataRow
  3. For Each row in testDT
  4. If distintVal != row("column")
  5. newTable.AddRow(row)
  6. distintVal = row("column")
  7. End If
  8. Next