Program for navigation.

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\stud.mdb")

Dim adp As New OleDbDataAdapter("select rollno, name from studinfo", cn)

Dim ds As DataSet

Dim dv As DataView

Dim cm As CurrencyManager

Private Sub Button1First_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1First.Click

cm.Position = 0

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ds = New DataSet

adp.Fill(ds, "stud")

dv = New DataView(ds.Tables("stud"))

cm = CType(Me.BindingContext(dv), CurrencyManager)

TextBox1.DataBindings.Clear()

TextBox2.DataBindings.Clear()

TextBox1.DataBindings.Add("text", dv, "rollno")

TextBox2.DataBindings.Add("text", dv, "name")

End Sub

Private Sub Button2Next_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2Next.Click

cm.Position = cm.Position + 1

End Sub

Private Sub Button3Prev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3Prev.Click

cm.Position = cm.Position - 1

End Sub

Private Sub Button4Last_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4Last.Click

cm.Position = cm.Count - 1

End Sub

End Class