Hi Saran,
Try this..
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim ConnectionString As String = System.Configuration.ConfigurationSettings.AppSettings("dsn")
Dim con As OleDbConnection = New OleDbConnection(ConnectionString)
Dim com As OleDbCommand
Dim oledbda As OleDbDataAdapter
Dim ds As DataSet
Dim dt As DataTable
Dim dr As DataRow
Dim dc As DataColumn
Dim str As String
Dim i As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
con.Open()
str = "select * from employee"
com = New OleDbCommand(str, con)
oledbda = New OleDbDataAdapter(com)
ds = New DataSet
oledbda.Fill(ds, i, 5, "employee")
DataGridView1.DataSource = ds
DataGridView1.DataMember = "employee"
con.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
i = i + 5
If i > 23 Then
i = 18
End If
ds.Clear()
oledbda.Fill(ds, i, 5, "employee")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
i = i - 5
If i <= 0 Then
i = 0
End If
ds.Clear()
oledbda.Fill(ds, i, 5, "employee")
End Sub
End Class
Thanks
If this post helps you mark it as answer