If you are already conected to database you should do something like this...
-----------
'Declare variable MaxRows.You need this to know how many rows you have in your table.Also declare another variable called "i"
Dim MaxRows As Integer
Dim i As Integer
'Now do this to form load event
MaxRows = ds.Tables("Your Table Name").Rows.Count
'Set i to -1
i=-1
'Make one button,let's call him Next and write this
If inc <>
MaxRows - 1 Then
inc = inc + 1
NavigateRecords()
Else
MsgBox("No More Rows")
End If
'Make your own subroutine
Private Sub NavigateRecords()
txtFirstName.Text
= ds.Tables("Your Table Name").Rows(inc).Item(1)
txtSurname.Text = ds.Tables("Your Table Name").Rows(inc).Item(2)
End Sub
Hope I was helpful...