DataGrid Sort

Private Sub grdDataGrid_HeadClick(ByVal ColIndex As Integer)
 Dim strColName As String
 Static bSortAsc As Boolean
 Static strPrevCol As String
 
 strColName = grdDataGrid.Columns(ColIndex).DataField
 
' Did the user click again on the same column ? If so, check
' the previous state, in order to toggle between sorting ascending
' or descending. If this is the first time the user clicks on a column
' or if he/she clicks on another column, then sort ascending.
 If strColName = strPrevCol Then
  If bSortAsc Then
   adoPrimaryRS.Sort = strColName & " DESC"
   bSortAsc = False
  Else
   adoPrimaryRS.Sort = strColName
   bSortAsc = True
  End If
 Else
  adoPrimaryRS.Sort = strColName
  bSortAsc = True
 End If
   
 strPrevCol = strColName
End Sub