[VBA/ACCESS] Leggere un campo di una tabella di un DB

[mgmg]

Se all'evento click di un comando esegui le seguenti operazioni:
Dim rset As Recordset
sqlstr = "select * from tabella"
Set rset = CurrentDb.OpenRecordset(sqlstr)

Do Until rsetnom.EOF
'eseguo calcoli sui campi della tabella
Totale = rset("campo1") + rset("campo2")

rset.Edit
rset("campo3") = Totale

rset.MoveNext
Me.Repaint
g = g + 1
ContaOrdinig.Caption = g
Loop