Trying to Do a sort of this Grid from Data Extracted from a Database.

When I run this Routine to Do A header sort the Information Is on the bottom of the Grid
VB Code:
  1. With FlexGrid
  2.    .RowSel = .Row 'forces grid to Sort all rows
  3.    .Col = 1
  4.    .ColSel = 3
  5.    .Sort = flexSortGenericAscending
  6. End With
Amy suggestions