Mengurutkan DataGrid

Buat sebuah Module baru dan ketikkan :

Public Sub SortDatagrid(ByVal Dgd As DataGrid, ByVal Rst As Recordset, ByVal ColId As Integer)
If Rst.Sort = Dgd.Columns(ColId).DataField Then
Rst.Sort = Dgd.Columns(ColId).DataField & " DESC"
Else
Rst.Sort = Dgd.Columns(ColId).DataField
End If
End Sub

Sebagai contoh penggunaannya, buat sebuah kontrol 'Adodc' dan sebuah 'DataGrid'. Atur koneksi yang ada di kontrol Adodc, dan pastikan properti DataSource dari DataGrid adalah kontrol Adodc tersebut. Setelah itu pada bagian 'DataGrid1_HeadClick' ketikkan :

SortDatagrid DataGrid1, Adodc1.Recordset, ColIndex

Jalankan aplikasi dan coba klik header / nama kolom dari DataGrid.