Private Sub SalvaGrid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalvaGrid.Click
        Dim t As DataTable = CType(CarrelloDataGridView.DataSource, DataTable)
        Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DbOggetti.mdb"
        Dim ConnEl As New OleDb.OleDbConnection(strConn)
        For Each y As DataRow In t.Rows
            ConnEl.Open()
            Dim s As String = "SELECT * FROM Carrello WHERE ID = " + Trim(Str(y("ID")))
            Dim adattatore As New OleDb.OleDbDataAdapter(s, strConn)
            Dim ds As New DataSet
            adattatore.Fill(ds, "Pippo")
            Dim t2 As DataTable = ds.Tables("Pippo")
            If t2.Rows.Count > 0 Then
                s = "UPDATE Carrello SET Descrizione='" + y("Descrizione") + "' Quantita = '" + y("Quantita") + "' WHERE ID = " + Trim(Str(y("ID")))
            End If
            Dim cn As OleDb.OleDbConnection = New OleDb.OleDbConnection(strConn)
            Dim cm As OleDb.OleDbCommand = New OleDb.OleDbCommand(s, cn)

            Try
                cm.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox("Errore:" + ex.Message)
            End Try
            ConnEl.Close()
        Next
    End Sub