求助：datagrid 的列头排序，我只能排序一次，点击第二次的时候就排不回去了
Dim A_order As Boolean Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
Select Case ColIndex
Case 5
If A_order = True Then
Adodc1.RecordSource = "select * from Categories order by description"
A_order = False
Else
A_order = True
Adodc1.RecordSource = "select * from Categories order by description DESC"
End If
Adodc1.Refresh
这段代码错在那里？我只能排序一次，点击第二次的时候就排不回去了
谢谢
