pagineando datalist no pasa

[chuchufuentes]

Gracias por responder.
Son 36 registros y muestro de 9 en 9, osea que serian 4 presentaciones, pero muestra los 9 primeros, Click NEXT otros 9, Click NEXT y no pasa se queda con los ultimos 9, sera que hay que darle algun refresh al record set.
asp.net 1.1 VB.net usando Datalist (web)


Aqui el codigo

Private Sub DataBind1()
Dim pagedData As New PagedDataSource

Dim objDA As New OleDbDataAdapter("SELECT * FROM Products where CategoryID = '" & categoryId & "' order by modelname", oConn)
Dim objDS As New DataSet
If Not Page.IsPostBack() Then
objDA.Fill(objDS)
intRecordCount1.Text = CStr(objDS.Tables(0).Rows.Count)
objDS = Nothing
objDS = New DataSet
End If

objDA.Fill(objDS, "Sales")

pagedData.DataSource = objDS.Tables(0).DefaultView
pagedData.AllowPaging = True
pagedData.PageSize = 9
intPageSize1.Text = currentpage()
intCurrIndex1.Text = currentpage()
pagedData.CurrentPageIndex = CInt(intPageSize1.Text)
MyList.DataSource = pagedData
MyList.DataBind()
If pagedData.IsFirstPage Then
' Me.cmdNext.Enabled = True
ElseIf pagedData.IsLastPage = True Then
' Me.cmdPrev.Enabled = True
Else
' Me.cmdPrev.Enabled = True
' Me.cmdNext.Enabled = True
End If

oConn.Close()
End Sub

Public Sub ShowPrevious(ByVal s As Object, ByVal e As EventArgs)
intPageSize1.Text = CInt(intPageSize1.Text) - 1
ViewState("_CurrentPage") = CInt(ViewState("_CurrentPage")) - 1

DataBind1()
End Sub

Public Sub ShowNext(ByVal s As Object, ByVal e As EventArgs)
intPageSize1.Text = CInt(intPageSize1.Text) + 1
ViewState("_CurrentPage") = CInt(ViewState("_CurrentPage")) + 1
DataBind1()
End Sub

End Class