VSFlexGrid排序问题！

Question

VSFlexGrid的记录如下添加，在全部显示完后，如何点击第一行的某一列，重新以此列进行排序？？？如点击借款日期，重新以借款日期进行排序？？？Dim Rst as new AdoDb.recordset
dim tmpStr as stringa=chr(9)
VSFlexGrid1.Clear
VSFlexGrid1.Rows = 1
Do While Not Rst.EOF
        tmpStr = " " & a & Trim(Rst!ContractNo & "") & a & Trim(Rst!RefundTimes & "") & a & Rst!LoanAn & a & Rst!RegDate & a & Trim(Rst!Maturity & "")  
        VSFlexGrid1.AddItem tmpStr
        Rst.MoveNext
Loop
With VSFlexGrid1
    .FormatString = " |^选择|^借据编号|^借据辅号|^贷款帐号|^借款日期|^ 到期日期 
    .FixedCols = 1
    .ColWidth(0) = "0"
    .ColWidth(1) = "500"
    .ColWidth(2) = "1000"
    .ColAlignment(2) = 1
    .ColWidth(3) = "800"
    .ColAlignment(3) = 1
    .ColWidth(4) = "1600"
    .ColAlignment(4) = 1
    .ColWidth(5) = "1000"
    .ColAlignment(5) = 1
    .ColWidth(6) = "1000"
    .ColAlignment(6) = 1
End With

Answer 1

起先默认是排好了
order by RegDate,ContractNo显示好以后，为了方便查看，点击列的名称重新进行排序