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