怎样排序？？

Question

Private Sub TDBGrid1_HeadClick(ByVal ColIndex As Integer)On Error Resume NextStatic TmpFlag As Boolean    SaveColIndex = ColIndex
    
    If TmpFlag Then
        Adodc1.Recordset.Sort = TDBGrid1.Columns(ColIndex).DataField
        TmpFlag = False
    Else
        Adodc1.Recordset.Sort = TDBGrid1.Columns(ColIndex).DataField & " DESC"
        TmpFlag = True
    End IfEnd Sub