Imports System.Data.SqlClient
Partial Class _Default
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            BindData(5, 1)
        End If
    End Sub
    Public Sub BindData(ByVal pSize As Integer, ByVal pNumber As Integer)
        Dim sConn As SqlConnection
        Dim cmdSelect As SqlCommand
        Dim da As SqlDataAdapter
        Dim ds As Data.DataSet

        Try
            sConn = New SqlConnection("User ID=joeblow;Password=somePass;Initial Catalog=CData;Data Source=SQL-1;")
            cmdSelect = New SqlCommand("selData", sConn)

            With cmdSelect
                .CommandType = Data.CommandType.StoredProcedure
                'add parameters
                .Parameters.Add("@PageSize", Data.SqlDbType.Int).Value = pSize
                .Parameters.Add("@PageNumber", Data.SqlDbType.Int).Value = pNumber
                da = New SqlDataAdapter
                da.SelectCommand = cmdSelect
                ds = New Data.DataSet
                da.Fill(ds)
            End With

            With Me.GridView1
                .DataSource = ds.Tables(0)
                If ds.Tables(0).Rows.Count = 0 Then
                    Me.GridView1.Visible = False
                    GridView1.DataSource = Nothing
                End If
                .DataBind()
                .Visible = True
                .AllowPaging = True
            End With

        Catch e As Exception
            Response.Write("An Error Occurred: " & e.ToString())
            'clean up and close resources	
        Finally
            ds = Nothing
            da = Nothing
            cmdSelect = Nothing
            sConn.Close()
            sConn = Nothing
        End Try
    End Sub

    Protected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.PageIndexChanging
        Me.GridView1.PageIndex = e.NewPageIndex
        BindData(5, e.NewPageIndex + 1)
    End Sub
End Class