Вы можете добавить следующее в свой код (при условии, что VB.Net в порядке):
Private Sub GridView1_RowCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowCreated
Select Case e.Row.RowType
Case DataControlRowType.Footer
Dim LnkBtnPaging As New LinkButton
LnkBtnPaging.ID = "LnkBtnPaging"
LnkBtnPaging.Text = IIf(GridView1.AllowPaging, "no paging", "paging").ToString
AddHandler LnkBtnPaging.Click, AddressOf LnkBtnPagingClicked
e.Row.Cells(0).Controls.Add(LnkBtnPaging)
e.Row.Cells(0).ColumnSpan = e.Row.Cells.Count
While e.Row.Cells.Count > 1
e.Row.Cells.RemoveAt(e.Row.Cells.Count - 1)
End While
End Select
End Sub
Private Sub LnkBtnPagingClicked(ByVal sender As Object, ByVal e As EventArgs)
Me.GridView1.AllowPaging = Not Me.GridView1.AllowPaging
End Sub
Не забудьте изменить идентификатор сетки на свой и добавить ShowFooter="True"
в теге GridView на ASPX.
РЕДАКТИРОВАТЬ: добавлен код для автоматической настройки количества столбцов нижнего колонтитула и диапазона столбцов