Datagrid og paging

Jeg har følgende namespca som jeg compiler:

Option Explicit
Option Strict off

Imports System
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports Microsoft.visualbasic
Imports System.data
Imports System.Collections

Namespace tester

    Public Class tester : : inherits page       

        Dim ItemsGrid as new datagrid()

        Public function start(sted as object)
                ItemsGrid.pagesize="1"
                AddHandler ItemsGrid.pageindexchanged, AddressOf Grid_Change
                ItemsGrid.allowpaging="True"
                ItemsGrid.PagerStyle.Mode = PagerMode.NumericPages
                ItemsGrid.Pagerstyle.Position = PagerPosition.bottom
                ItemsGrid.PagerStyle.HorizontalAlign=HorizontalAlign.center                       
            If Not IsPostBack Then
                ItemsGrid.DataSource = CreateDataSource()
                ItemsGrid.DataBind()       
            end if
            sted.controls.add(ItemsGrid)               
        end function

        Function CreateDataSource() As ICollection        
            Dim dt As DataTable = New DataTable()
            Dim dr As DataRow
           
            dt.Columns.Add(new DataColumn("IntegerValue", GetType(Int32)))
            dt.Columns.Add(new DataColumn("StringValue", GetType(String)))
            dt.Columns.Add(new DataColumn("CurrencyValue", GetType(Double)))
           
            Dim i As Integer       
            For i=0 To 100           
                dr = dt.NewRow()               
                dr(0) = i
                dr(1) = "Item " & i.ToString()
                dr(2) = 1.23 * (i + 1)               
                dt.Rows.Add(dr)           
            Next i
           
            Dim dv As DataView = New DataView(dt)           
            Return dv       
        End Function

      Sub Grid_Change(sender As Object, e As DataGridPageChangedEventArgs)
        ItemsGrid.CurrentPageIndex = e.NewPageIndex
        ItemsGrid.DataSource = CreateDataSource()
        ItemsGrid.DataBind()     
      End Sub


    End class

end namespace

Jeg benytter mig af namespacet på følgende måde i en aspx.vb fil:

Option Explicit
Option Strict on

Imports System
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports Microsoft.visualbasic

Imports tester

Public Class undersite : Inherits Page
    Dim tester as new tester.tester()
    Protected phsite As System.Web.UI.Webcontrols.placeholder

    Public Sub Page_Load(Source As Object, E as EventArgs)       
        tester.start(phsite)
    end sub

End Class

Mit problem er, at når man f.eks vælger og får vist side 5 og så går tilbage til side 1, så viser den stadig side 5. Hvis jeg vælger side 5 og går tilbage til side 3 er der ingen problemer?


Håber det er til at forstå - det er en haster