Paginar un DataList

[useraul]

'CODIGO EN LA CLASE

Imports System
Imports System.Data
Imports System.Data.SqlClient

Namespace Paginacion
Public Class clsPaginacion

Dim cn As New SqlConnection("Data Source=.;Initial Catalog=CiteTime;Integrated Security=true")


Public PagIni As Integer
Public TotPag As Integer
Public NumRows As Integer

Public Function Paginar() As DataSet
Dim da As New SqlDataAdapter("select *from news_categories", cn)
Dim ds As New DataSet
da.Fill(ds, PagIni, TotPag, "Paginacion")

Dim daTotRows As New SqlDataAdapter("select *from news_categories", cn)
daTotRows.Fill(ds, "TotalReg")

NumRows = ds.Tables("TotalReg").Rows.Count

Return ds

End Function

Public Sub MoveFirst()
PagIni = 0
End Sub

Public Sub MoveNext()

If PagIni + 1 < NumRows Then
PagIni = PagIni + TotPag
End If

End Sub

Public Sub MovePrevious()
PagIni = PagIni - TotPag
If PagIni < 0 Then
PagIni = "0"
End If

End Sub

Public Sub MoveLast()
Dim tmpInt As Integer

tmpInt = NumRows Mod PagIni
If tmpInt > 0 Then
PagIni = NumRows - tmpInt
Else
PagIni = NumRows - TotPag
End If

End Sub
End Class
End Namespace


'CODIGO EN EL FORMULARIO

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

objPag.TotPag = 3
objPag.PagIni = 0

dtl1.DataSource = objPag.Paginar
dtl1.DataBind()

End Sub

Protected Sub lk_Next_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lk_Next.Click

objPag.MoveNext()

dtl1.DataSource = objPag.Paginar
dtl1.DataBind()

End Sub

Protected Sub lk_previous_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lk_previous.Click
objPag.MovePrevious()

dtl1.DataSource = objPag.Paginar
dtl1.DataBind()

Response.Write(objPag.PagIni)
End Sub


Protected Sub lk_last_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lk_last.Click
objPag.MoveLast()

dtl1.DataSource = objPag.Paginar
dtl1.DataBind()

Response.Write(objPag.PagIni)
End Sub

Agradesco su interes, bueno mi problema es con el MoveNext, Move Previous, que solo me ejectuta una sola ves