Giustissimo ...
Allora facciamo così .... modifica il codice del progettino di esempio con quest'altro codice.
codice:
Imports System.Data.SqlClient

Public Class Form1
    Private ConnString As String
    Private Conn As SqlConnection
    Private Cmd As SqlCommand
    Private Da As SqlDataAdapter
    Private Cb As SqlCommandBuilder
    Private Ds As DataSet
    Private bs As BindingSource
    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        InizializzaOggetti()
        Da.Fill(Ds, "Listino")
        bs = New BindingSource(Ds, "Listino")
        TextBox1.Text = DirectCast(bs.Current, DataRowView).Item("Id").ToString
        TextBox2.Text = DirectCast(bs.Current, DataRowView).Item("Articolo").ToString
        TextBox3.Text = DirectCast(bs.Current, DataRowView).Item("Descrizione").ToString
        TextBox4.Text = DirectCast(bs.Current, DataRowView).Item("Prezzo").ToString
    End Sub
    Private Sub InizializzaOggetti()
        ConnString = String.Format("Data Source=.\SQLEXPRESS;AttachDbFilename={0}\Db.mdf;Integrated Security=True;User Instance=True", Application.StartupPath)
        Conn = New SqlConnection(ConnString)
        Cmd = New SqlCommand("SELECT * FROM LISTINO", Conn)
        Da = New SqlDataAdapter(Cmd)
        Cb = New SqlCommandBuilder(Da)
        Ds = New DataSet
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        bs.MoveNext()
        TextBox1.Text = DirectCast(bs.Current, DataRowView).Item("Id").ToString
        TextBox2.Text = DirectCast(bs.Current, DataRowView).Item("Articolo").ToString
        TextBox3.Text = DirectCast(bs.Current, DataRowView).Item("Descrizione").ToString
        TextBox4.Text = DirectCast(bs.Current, DataRowView).Item("Prezzo").ToString
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        bs.MovePrevious()
        TextBox1.Text = DirectCast(bs.Current, DataRowView).Item("Id").ToString
        TextBox2.Text = DirectCast(bs.Current, DataRowView).Item("Articolo").ToString
        TextBox3.Text = DirectCast(bs.Current, DataRowView).Item("Descrizione").ToString
        TextBox4.Text = DirectCast(bs.Current, DataRowView).Item("Prezzo").ToString
    End Sub
End Class
Tieni presente che non ho dedicato molto tempo all'ottimizzazione del codice(ma dovrebbe quanto meno darti l'idea di come devono funzionare le cose) e che ho ipotizzato un ambiente non tipizzato.

Facci sapere...
Ciao