Sort colonna datagrid

Private Sub MyGriglia_HeadClick(ByVal ColIndex As Integer)
Datprimaryrs.Sort = MyGriglia.Columns(ColIndex).DataField
End Sub Private Sub MyGriglia_HeadClick(ByVal ColIndex As Integer)