CRYSTALREPORT y DATASET

[Macaname]

SORRY POR AGARRAR ESTE POST PERO NO PUEDO POSTEAR
SI ME UEDEN AYUDAR CON ESTE CODIGO DE PAGINACION DE UN DATALIST YA
ME ESTOY VOLVIENDO LOCO SI MEAYUDAN GRACIAS DE ANTEMANO

mports System.Data
Imports System.Data.SqlClient
Partial Class Default2
Inherits System.Web.UI.Page
Dim cn As New SqlConnection("Server=localhost;Integrated Security=SSPI;Database=NorthWind")
Dim dataset1 As New DataSet
Dim pageds As New PagedDataSource

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Dim cmd As New SqlCommand("usp_ProdVendidosxOrden", cn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("@OderId", SqlDbType.Int).Value = Request.QueryString("orden")
Dim da As New SqlDataAdapter(cmd)



da.Fill(dataset1, "usp_ProdVendidosxOrden")

pageds.DataSource = dataset1.Tables("usp_ProdVendidosxOrden").DefaultV iew
pageds.AllowPaging = True
pageds.PageSize = 2

Dim curpage As Integer

If Not IsNothing(Request.QueryString("Page")) Then
curpage = Convert.ToInt32(Request.QueryString("Page"))
Else
curpage = 1
End If

pageds.CurrentPageIndex = curpage - 1

lblcurpage.Text = "Page: " + curpage.ToString()

If Not pageds.IsFirstPage Then
HyperLink3.NavigateUrl = Request.CurrentExecutionFilePath + "?Page=" + CStr(curpage - 1)
End If

If Not pageds.IsLastPage Then
HyperLink2.NavigateUrl = Request.CurrentExecutionFilePath + "?Page=" + CStr(curpage + 1)
End If

DataList1.DataSource = pageds
DataList1.DataBind()

End If
End Sub
End Class