[quoted text, click to view]

I've implemented a simple function that make the SELECT DISTINCT for me,
have a look:

Public Function SelectDistinct(ByRef tX As DataTable, ByVal strField As
String) As IList

Dim rQuery() As DataRow
Dim lRET As New Collection
Dim i As Integer
Dim j As Integer

'Sort the DataTable by the Field
rQuery = tX.Select("", strField & " ASC")

Select Case rQuery.GetUpperBound(0)
Case Is = -1

'no rows
Exit Select
Case Is = 0

'1 row
lRET.Add(CType(rQuery.GetValue(0), DataRow).Item(strField))
Case Else

'more than 1 row
lRET.Add(CType(rQuery.GetValue(0), DataRow).Item(strField))
j = 1

For i = 1 To rQuery.GetUpperBound(0)
If rQuery(i).Item(strField) <> lRET.Item(j) Then
lRET.Add(CType(rQuery.GetValue(i),
DataRow).Item(strField))
j += 1
End If
Next
End Select

'function return
Return lRET
End Function