Piccoli errori. Cambiare il rst ai rs:
Oscurare i dbs come base di dati
Oscurare i rs come Recordset
Regolare i dbs = CurrentDb
Regolare i rs = dbs.OpenRecordset (“qryData„)
MsgBox “il totale per„ & rs! fldOne & “per„ & rs! il fldThree & “è„ & rs! fldTotal
rs. Fine
dbs. Fine
Regolare i rs = niente
Regolare i dbs = niente