Private Sub Torna_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Torna.Click
        Me.Close()
    End Sub

    Private Sub Carrello_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: questa riga di codice carica i dati nella tabella 'DbOggettiDataSet.Carrello'. È possibile spostarla o rimuoverla se necessario.
        Me.CarrelloTableAdapter.Fill(Me.DbOggettiDataSet.Carrello)
        Me.StartPosition = FormStartPosition.CenterScreen
        Me.Label1.Location = New System.Drawing.Size(70, 40)
        Me.CarrelloDataGridView.Columns(0).Width = 250

    End Sub

    Private Sub CarrelloBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CarrelloBindingNavigatorSaveItem.Click
        Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DbOggetti.mdb"
        Me.Validate()
        Me.CarrelloBindingSource.EndEdit()
        Me.CarrelloTableAdapter.Update(Me.DbOggettiDataSet.Carrello) <--- mi dà qui l'errore
    End Sub