Сортировка в TDBGrid - VB

Формулировка задачи:

Кто знает как в этой сетке сделать сортировку в любом столбце по возрастанию или убыванию?

Решение задачи: «Сортировка в TDBGrid»

textual
                            Листинг программы 
                        
                            Dim ColSortedInx As Integer
Dim DefSqlSring as String
Dim DefSortString as String
 
Private Sub Form_Load()
 
DataSet.DataBaseName = 'C:db.mdb'
 
DefSqlSring = 'select * from Taбля where ID<>1 '
 
DataSet.RecordSource = DefSqlSring & 'order by ' & DataGrid.Columns(ColSortedInx).DataField & ' asc' 'или desc
 
DataSet.Refresh
 
End Sub
 
Private Sub DataGrid_HeadClick(ByVal ColIndex As Integer)
Dim ID As Long
 
With DataSet
 
ID = .Recordset!ID
 
.RecordSource = DefSqlSring & ' order by ' & DataGrid.Columns(ColIndex).DataField
 
.Refresh
 
.Recordset.FindFirst 'ID =' & ID
 
ColSortedInx = ColIndex
 
End Sub