mmm un po' di logica quando si programma....

dove fai

TotaleCart = TotaleCart + PrezzoTotaleProdotto

fai anche

TotaleQuantita = TotaleQuantita + Quantita

dove dimensioni TotaleCart e PrezzoTotaleProdotto dimensioni anche TotaleQuantita e Quantita

dove prelevi PrezzoTotaleProdotto dal recordset prelevi anche Quantita

pensaci...