Ti crei una variabile e ogni volta che vai a leggere l'importo lo aggiungi alla variabile.


Es concreto

dim TotEuro
dim Euro


nel ciclo while dove fai la List1.AddItem
Euro = Data.Recordset.Fields("euro")
TotEuro = TotEuro + Euro
next
alla fine TotEuro sara' il totale del tuo List1

Risposta buttata di getto quindi potrebbero esserci delle imperfezioni