Люди добрые помогите! Как сделать сортировку в Datagrid что бы первый щелчок - сортировка по этому полю asc, щелкаешь снова - desc!
Я тут на форуме нашел вот такой код, Пробовол его всяко менять но не получаеться второе нажатие клавиши!

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
With Adodc1.Recordset
If .Fields(ColIndex).Type <> 11 And .Fields(ColIndex).Type <> 12 Then
.Sort = .Fields(ColIndex).Name
DataGrid1.Refresh
Else
MsgBox "Сортировка для МЕМО-полей и полей типа OLE Object невозможна!!", vbExclamation
End If
End With
End Sub

Antonariy,

Большое спасибо!