Sorting Datagrid pada Vb6

Saat membuat program menggunakan visual basic 6, melakukan input data sudah pasti dilakukan, salah satu menu yang digunakan adalah datagrid, saat menginput datagrid terkadang kita menginputkan data sembarang, alhasil data pada datagrid menjadi berantakan dan tidak berurutan. berikut source code yang bisa digunakan untuk
sorting data pada datagrid pada visual basic 6.0.

pertama, anda gunakan event Headclick milik datagrid itu sendiri , lalu ketikan coding berikut 

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
Adodc1.Recordset.Sort = DataGrid1.Columns(Colindex).DataField
End Sub

nb :

colindex = isikan dengan no index pada datagrid yang ingin di urutkan.