在datagrid里，点击列标题，一个可以排序，另一个标题不行

Question

“数量”不是数据表的字段名，当然找不到。If DataGrid1.Columns(ColIndex).DataField = "数量" Then
    If t_flag Mod 2 = 1 Then Adodc1.RecordSource = "select 名称 ,sum(个数)as 数量 from ziliao group by 名称 Order By sum(个数)"
    If t_flag Mod 2 = 0 Then Adodc1.RecordSource = "select 名称 ,sum(个数)as 数量 from ziliao groop by 名称 Order By Order By sum(个数) desc "
Else
    If t_flag Mod 2 = 1 Then Adodc1.RecordSource = "select 名称 ,sum(个数)as 数量 from ziliao group by 名称 Order By " & DataGrid1.Columns(ColIndex).DataField
    If t_flag Mod 2 = 0 Then Adodc1.RecordSource = "select 名称 ,sum(个数)as 数量 from ziliao groop by 名称 Order By " & DataGrid1.Columns(ColIndex).DataField & " desc "
End If
Adodc1.Refresh