Visual Basic - ordenacion

hello!, alguien sabe como hacer para ordenar un dbgrid, en tiempo de ejecucion, por ejemplo haciendo clic en algun encabezado de una columna o de alguna otra forma?, lo que necesito es que cuando yo muestr algo tenga la posibilidad de ordenar por el campo que quiera. gracias

Private Sub grddiario_HeadClick(ByVal ColIndex As Integer)
Select Case ColIndex
Case 4 'Ordenara por la columna 4
Llena_DBGrid("NoCliente")
Case 5
Llena_DBGrid("Nombre")
Case 6
Llena_DBGrid("Direccion")
Case 7
Llena_DBGrid("NombreCampo")
End Select
End Sub

Nota
1.- El ColIndex representa el numero de la columna a la que le diste el Click
Adapta el proceso que tienes agregandole un parametro para poder que le mandes el campo por el cual quieres que ordene el DBgrid