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