Visual Basic - ordenar columnas datagrid

Buenas tardes.

Tengo un datagrid con sus respectivos datos (7 campos)
Lo que quiero hacer es que al pulsar la cabecera de un campo, se ordene por ese campo.

Gracias.

No se pueden ordenar datos daole clik a la cabecera, lo que puedes hacer el colocar un combo con el valor de los 7 campos que tienes y un boton y en el boton programas el ordenamiento en base al valor seleccionado.


Ejemplo

el combo tiene los siguientes valores.

1.- clave
2.- nombre
3.- direccion
4.- telefono

Nota: esos valores del combo tratan que sean iguales a los valores de tu tabla, para que puedas indicarle al adodb como ordenarlos

en el boton

'mete en una varianle el valor del como

x = combo1.text

'ahora en un case

select case x

case "clave"

' el objeto de conexion puede variar yo lo voy a hacer con un ADODB

adodb1.recordsource = "select * from tabla1 order by clave"
adodb1.refresh
------------------------OJO----------------clave es el nombre del campo de tu tabla, no necesariamente tiene que ser igual al valor del combo OK

case "nombre"
adodb1.recordsource = "select * from tabla1 order by nombre"
adodb1.refresh

case "direccion"
adodb1.recordsource = "select * from tabla1 order by direccion"
adodb1.refresh

case "telefono"
adodb1.recordsource = "select * from tabla1 order by telefono"
adodb1.refresh

end select

asi puedes realizar una ordenacion cmo quieres.

Muchas gracias.

Aca la mejor solucion:

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
With [Recordset]
If (.Sort = .Fields(ColIndex).[Nombre] & " Asc") Then
.Sort = .Fields(ColIndex).[Nombre] & " Desc"
Else
.Sort = .Fields(ColIndex).[Nombre] & " Asc"
End If
End With
End Sub