I have this method which generates a datatable on all unique values of a column from a dataset:

        ' Take distinct values from a column and return them into a Rows() object
        ' expO1 Dataset
        ' expC1 Table
        '       Optional
        '       Default is Temp
        ' expC2 Column name
        Public Function DistinctValue(ByVal toDataSet As DataSet, _
         Optional ByVal tcTable As String = "Temp", _
         Optional ByVal tcColumn As String = "") As Boolean
            Dim lcColumnArray As String = ""
            lcColumnArray = tcColumn
            Try
                oDataTable = toDataSet.Tables(tcTable).DefaultView.ToTable(tcTable, True, lcColumnArray.ToCharArray)
            Catch loError As Exception
                DataError(loError, oApp.Debug(loError.Message))
                Return False
            End Try
            Return True
        End Function

But, I would like to sort that on the column. What would need to be adjusted to accomplish that?