Protected Sub GridView1_Sorting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewSortEventArgs) Handles GridView1.Sorting

   If Page.IsPostBack = True Then
     Dim mySortExpression As String = ""
     mySortExpression = e.SortExpression.ToString
     Dim mySortDirection As SortDirection = SortDirection.Ascending
     GridView1.Sort(mySortExpression, mySortDirection)
     GridView1.DataBind()
   End If
End Sub

Public Function GetInventory(ByVal myDouble As Double) As Object

        Dim mySelectString As String = "Select Diameter, Pitch, Rotation, Bore, Blades, Material, Manufacturer," + _
                                              "Model, Quantity, Condition from PropInventory where Sold = False and Diameter >= " & + _
                                              myDouble & " Order by Diameter"

        Dim ConnectionString As String = ConfigurationManager.AppSettings("ConnectionString")
        Dim myOleDbConnection = New OleDbConnection(ConnectionString)

        myOleDbConnection.Open()

        Dim myOleDbCommand As New OleDbCommand

        myOleDbCommand.CommandText = mySelectString

        myOleDbCommand.Connection = myOleDbConnection

        Dim myOleDbDataAdapter As New OleDbDataAdapter(myOleDbCommand)
        Dim myDataSet As New Data.DataSet
        Dim myDataTable As New Data.DataTable

        myOleDbDataAdapter.Fill(myDataSet, ("myDataTable"))

        'Fill manual rows Uses Number of Rows from table and grid page size
        Dim ShortFullPage As Double = myDataSet.Tables("myDataTable").Rows.Count Mod GridView1.PageSize
        Dim ManualRowsNeeded As Integer = GridView1.PageSize - ShortFullPage

        Dim i As Integer
        For i = 0 To ManualRowsNeeded - 1
            myDataSet.Tables("myDataTable").Rows.Add(myDataSet.Tables("myDataTable").NewRow())
        Next i

        myObject = myDataSet

        Return myObject

    End Function

Protected Sub GridView1_PageIndexChanging1(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.PageIndexChanging

        If Page.IsPostBack = True Then

            Dim myDouble As Double = 0

            GetInventory(myDouble)
            Dim myDataSet As New Data.DataSet

            myDataSet = myObject
            'DisplayCurrentPage()
            GridView1.PageIndex = e.NewPageIndex
            GridView1.DataSource = myDataSet
            GridView1.DataBind()

        End If

    End Sub