DBEngine(0)(0).Execute "UPDATE Prodotti SET Prodotti.stock = " & Me.stock.Value - Me.Quantita.Value & " WHERE (((Prodotti.prodotto)='" & Me.prodotto.Value & "'));"