1:  Function EliminateDuplicates(ByVal dt As DataTable) As DataTable

   2:          Dim ssort As String = ""

   3:          Dim col As DataColumn

   4:          Dim scol As DataColumn

   5:          For Each scol In dt.Columns

   6:              If ssort <> "" Then ssort &= ","

   7:              ssort &= scol.ColumnName

   8:          Next 

   9:   

  10:          dt.DefaultView.Sort = ssort

  11:          Dim i As Integer, bEquals As Boolean, c As Integer, ccount As Integer

  12:          ccount = dt.Columns.Count

  13:          For i = dt.Rows.Count - 1 To 1 Step -1

  14:              bEquals = True

  15:              For c = 0 To ccount - 1

  16:                  If dt.DefaultView(i)(c).ToString() <> dt.DefaultView(i - 1)(c).ToString() Then

  17:                      bEquals = False

  18:                      Exit For

  19:                  End If

  20:              Next c 

  21:   

  22:              If bEquals Then

  23:                  dt.DefaultView(i).Delete()

  24:              End If

  25:          Next 

  26:   

  27:         Return dt

  28:      End Sub