scusa,ho dimenticato di mandarti questo:

Sub DataGrid1_Sort(ByVal Sender As Object, ByVal E As DataGridSortCommandEventArgs)
BindGrid(E.SortExpression)
End Sub