Datagrid paging genererer fejl

Det er lidt svært med så sparsomme informationer. Du kan læse lidt om datagrids her:
http://www.kursusmaterialer.dk/ASP.NET%20II/Dataset%20objektet/Paging.aspx
Det er godt nok til WebMatrix, men jeg håber du kan få noget fornuftigt ud af det alligevel.

/Thor

Smider lige et uddrag af koden i håb om at nogen kan se, hvad der er galt...

*** PRODUCTS.ASPX ***
<asp:datagrid id="dgProducts" runat="server" OnPageIndexChanged="dgProducts_Change_Page" PageSize="2" AllowPaging="True">
</asp:datagrid>

*** PRODUCTS.ASPX.VB ***
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        If Not Page.IsPostBack Then
            Get_Categories()
            Get_Products()
        End If
    End Sub

    Private Sub Get_Categories()
        Dim DbConnect As New DataAccess.objDataAccess()
        Dim DsCategories As New DataSet()
        DsCategories = DbConnect.ReturnDataSet("Select_ParentCategories", "Categories")
        selCategory.DataSource = DsCategories.Tables("Categories")
        selCategory.DataTextField = "Description"
        selCategory.DataValueField = "CategoryId"
        selCategory.DataBind()
    End Sub

    Private Sub Get_Products()
        Dim DbConnect As New DataAccess.objDataAccess()
        Dim DsProducts As New DataSet()
        DsProducts = DbConnect.ReturnDataSet("Select_Products", "Products", New SqlParameter("@ProductId", -1))
        dgProducts.DataSource = DsProducts.Tables("Products").DefaultView
        dgProducts.DataBind()
        dgProducts.CurrentPageIndex = 0
    End Sub

    Public Sub dgProducts_Change_Page(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs)
        dgProducts.CurrentPageIndex = e.NewPageIndex
        Get_Products()
    End Sub

Lukket