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
            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")
            Using Connl As New OleDb.OleDbConnection(strConn)
                Connl.Open()
                If t2.Rows.Count > 0 Then
                    s = "UPDATE Carrello SET Quantita='" + y("Quantita") + "' WHERE ID = " + Trim(Str(y("ID")))
                End If
                Dim cmdModArt As New OleDb.OleDbCommand(s, Connl)
                cmdModArt.ExecuteNonQuery()
                Connl.Close()
            End Using
        Next
    End Sub