Hi,
I have the following code
I got it from asp.net tutorials
but waht is the code for pagedData.DataSource=???
can you write an example to get some data from a database
in this code it is written products.Rows and getProducts() function
can you write the code
the code in that example is very complicated
i just need to page data in the datalist

 Public Function GetProductsAsPagedDataSource(ByVal pageIndex As Integer, ByVal pageSize As Integer) As PagedDataSource
        ' Get ALL of the products
        Dim products As Northwind.ProductsDataTable = GetProducts()

        ' Limit the results through a PagedDataSource
        Dim pagedData As New PagedDataSource()
        pagedData.DataSource = products.Rows
        pagedData.AllowPaging = True
        pagedData.CurrentPageIndex = pageIndex
        pagedData.PageSize = pageSize

        Return pagedData
    End Function

 Protected Sub FirstPage_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FirstPage.Click
        ' Send the user to the first page
        RedirectUser(0)
    End Sub

    Protected Sub PrevPage_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PrevPage.Click
        ' Send the user to the previous page
        RedirectUser(PageIndex - 1)
    End Sub

    Protected Sub NextPage_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles NextPage.Click
        ' Send the user to the next page
        RedirectUser(PageIndex + 1)
    End Sub

    Protected Sub LastPage_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LastPage.Click
        ' Send the user to the last page
        RedirectUser(PageCount - 1)
    End Sub

    Private Sub RedirectUser(ByVal sendUserToPageIndex As Integer)
        ' Send the user to the requested page
        Response.Redirect(String.Format("Paging.aspx?pageI ndex={0}&pageSize={1}", sendUserToPageIndex, PageSize))
    End Sub

    Protected Sub ProductsDefaultPagingDataSource_Selected(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.ObjectDataSourceStatusEv entArgs) Handles ProductsDefaultPagingDataSource.Selected
        ' Reference the PagedDataSource bound to the DataList
        Dim pagedData As PagedDataSource = CType(e.ReturnValue, PagedDataSource)

        ' Remember the total number of records being paged through across postbacks
        TotalRowCount = pagedData.DataSourceCount

        ' Configure the paging interface based on the data in the PagedDataSource
        FirstPage.Enabled = Not pagedData.IsFirstPage
        PrevPage.Enabled = Not pagedData.IsFirstPage
        NextPage.Enabled = Not pagedData.IsLastPage
        LastPage.Enabled = Not pagedData.IsLastPage

        ' Display the current page being viewed...
        CurrentPageNumber.Text = String.Format("You are viewing page {0} of {1}...", PageIndex + 1, PageCount)
    End Sub

#Region "Page-Level, Paging-Related properties"
    Private Property TotalRowCount() As Integer
        Get
            Dim o As Object = ViewState("TotalRowCount")
            If (o Is Nothing) Then
                Return -1
            Else
                Return Convert.ToInt32(o)
            End If
        End Get
        Set(ByVal Value As Integer)
            ViewState("TotalRowCount") = Value
        End Set
    End Property

    Private ReadOnly Property PageCount() As Integer
        Get
            If TotalRowCount <= 0 OrElse PageSize <= 0 Then
                Return 1
            Else
                Return ((TotalRowCount + PageSize) - 1) / PageSize
            End If
        End Get
    End Property

    Private ReadOnly Property PageIndex() As Integer
        Get
            If (Not String.IsNullOrEmpty(Request.QueryString("pageInde x"))) Then
                Return Convert.ToInt32(Request.QueryString("pageIndex"))
            Else
                Return 0
            End If
        End Get
    End Property

    Private ReadOnly Property PageSize() As Integer
        Get
            If (Not String.IsNullOrEmpty(Request.QueryString("pageSize "))) Then
                Return Convert.ToInt32(Request.QueryString("pageSize"))
            Else
                Return 4
            End If
        End Get
    End Property