Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
Dim rs As ADODB.Recordset
Set rs = Adodc1.Recordset
If rs.Sort <> DataGrid1.Columns(ColIndex).DataField & " ASC" Then
rs.Sort = DataGrid1.Columns(ColIndex).DataField & " ASC"
Else
rs.Sort = DataGrid1.Columns(ColIndex).DataField & " DESC"
End If
End Sub