Visual Basic - ordenar columnas de datagrid

Quiero ordenar las filas de un datagrid con orden ascendente por medio de una columna q es numerica.

Prueba esto:

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

Muchas gracias Juanma.
Mi profesor me ha dicho q no se podia ordenar,será pardillo.luego se lo dire.
Gracias de verdad.
1saludo