Chiedo scusa per non averci pensato da solo.
Tento di rimediare postando quanto c'è nell'unico form del progettino:
codice:
Public Class Form1
Private Ds As DataSet
Private ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= |DataDirectory|\\Database.mdb;"
Private Conn As OleDb.OleDbConnection
Private Da As OleDb.OleDbDataAdapter
Private Cmd As OleDb.OleDbCommand
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btLoad.Click
For Each cnt As Control In Me.Controls
If TypeOf cnt Is TextBox Then
cnt.DataBindings.Clear()
End If
Next
Conn = New OleDb.OleDbConnection(ConnString)
Cmd = New OleDb.OleDbCommand("SELECT * FROM Listino", Conn)
Da = New OleDb.OleDbDataAdapter(Cmd)
Ds = New DataSet
Dim cmb As New OleDb.OleDbCommandBuilder(Da)
Da.Fill(Ds, "Tabella1")
DataGridView1.DataSource = Ds.Tables(0)
DataGridView1.Refresh()
TextBox1.DataBindings.Add("Text", Ds.Tables(0), "IdArticolo")
TextBox2.DataBindings.Add("Text", Ds.Tables(0), "Articolo")
TextBox3.DataBindings.Add("Text", Ds.Tables(0), "Descrizione")
TextBox4.DataBindings.Add("Text", Ds.Tables(0), "Prezzo")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btModifica.Click
Da.Update(Ds.Tables(0))
End Sub
End Class