>can anyone tell me why this code does not load my list box with data sorted by the field intSequence?
>
>

>' Added code for sorting the data
>      Me.gdsDataSet.Tables("RouteStops").Select(Nothing, _
>                  "intSequence ASC", DataViewRowState.CurrentRows)
>' End code for sorting
>
>Me.lstRouteSegments.Columns.Add("Sequence", 80, HorizontalAlignment.Left)
>Me.lstRouteSegments.Columns.Add("Location", 300, HorizontalAlignment.Left)
>Me.lstRouteSegments.Columns.Add("ID", 80, HorizontalAlignment.Left)
>
>For liCount = 0 To Me.gdsDataSet.Tables("RouteStops").Rows.Count - 1
>
>    Me.gdrRow = Me.gdsDataSet.Tables("RouteStops").Rows.Item(liCount)
>    lcListViewString = Me.gdrRow("strLocationDescription").ToString
>    liListViewIndex = Me.gdrRow(lstrIDName).ToString
>    liIntSequence = Me.gdrRow("intSequence").ToString
>
>
>    ' Set the view to show details.
>    Me.lstRouteSegments.View = View.Details
>    ' Select the item and subitems when selection is made.
>    Me.lstRouteSegments.FullRowSelect = True
>    ' Display grid lines.
>    Me.lstRouteSegments.GridLines = True
>    Me.lstRouteSegments.AutoArrange = False
>
>    ' Create the items.
>    Dim item1 As New ListViewItem(liIntSequence, 0)
>    item1.SubItems.Add(lcListViewString)
>    item1.SubItems.Add(liListViewIndex)
>
>    'Add the items to the ListView.
>    Me.lstRouteSegments.Items.AddRange(New ListViewItem() {item1})
>Next
>

The Table.Select method returns a DataRow array. Try changing your code to:

Dim foundRows As DataRow() = Me.gdsDataSet.Tables("RouteStops").Select(Nothing, _
"intSequence ASC", DataViewRowState.CurrentRows)

Then use the foundRows array to fill your list box.