Imports System.Data.SqlClient Public Class Form5 Dim pagerows As Integer Dim conn As New SqlConnection("Data Source=.;Initial catalog=sports;Integrated Security=True") Private Sub count_rows() Dim cmd As New SqlCommand("Select Count(*) From table1", conn) conn.Open() Dim count1 As Integer count1 = Convert.ToString(cmd.ExecuteScalar) pagerows = Math.Ceiling(count1 / 10) Label3.Text = pagerows conn.Close() End Sub Private Sub Form5_Load(sender As Object, e As EventArgs) Handles Me.Load count_rows() End Sub Private Sub load_data() Dim f1 As Integer = Label1.Text * 10 - 10 + 1 Dim t1 As Integer = Label1.Text * 10 Dim cmd As New SqlCommand("Select * From(Select Row_Number() Over (Order By sport) As rownumber,id,name,age,sport,points From table1)tablerow Where rownumber Between " & f1 & "And " & t1 & "", conn) Dim da As New SqlDataAdapter da.SelectCommand = cmd Dim dt As New DataTable da.Fill(dt) DataGridView1.DataSource = dt End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Label1.Text = 1 load_data() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click If Label1.Text < pagerows Then Label1.Text = Label1.Text + 1 load_data() End If End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click If Label1.Text > 1 Then Label1.Text = Label1.Text - 1 load_data() End If End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Label1.Text = pagerows load_data() End Sub End Class