pb sur le tri d'un datagrid ---> sort

Bonjour,
mon pb est que je voudrai que lorsque je fai un tri sur une colonne, ce tri soi gardé après une validation. Car lorsque je fai une modification et ke je recharge ma page, le tri est perdu.

Voici la procedure ki fai le tri :

Sub grid1_sort(o as object,e as datagridsortcommandeventargs)
Dim odv as dataview=cache("table1")

if right(odv.sort,4) ="DESC"
odv.sort=e.sortexpression ' trie ds l'ordre croissant
Else
odv.sort=e.sortexpression & " DESC" 'sinon décroissant
End if


with grid1
.currentpageindex = 0
.datasource=odv
.databind
End with
affichenum()

End sub

Dans une autre procedure valider je voudrai garder ce tri :

Sub valider_click(o as Object, e as eventargs)

.
...etc...
.
grid1.currentpageindex=pageencours
grid1.databind
End Sub