Cita:
Iniciado por vbx3m 
Esta forma es mas sencilla:
Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
With Adodc1.Recordset
If (.Sort = .Fields(ColIndex).[Name] & " Asc") Then
.Sort = .Fields(ColIndex).[Name] & " Desc"
Else
.Sort = .Fields(ColIndex).[Name] & " Asc"
End If
End With
End Sub
Pruebalo...
intente usar esto para mi datagrid pero me sale un error
error 3265 en tiempo de ejecucion:
No se ecnontro el elemento de la coleccion que corresponde al nombre
o el ordinal solicitado
tengo que declarar alguna variable antes? te agradeceria mucho tu ayuda