Erros pequenos. Mudar o rst aos rs:
Escurecer dbs como a base de dados
Escurecer rs como Recordset
Ajustar dbs = CurrentDb
Ajustar rs = dbs.OpenRecordset (o “qryData”)
MsgBox “o total para” & rs! fldOne & “para” & rs! o fldThree & “é” & rs! fldTotal
rs. Fim
dbs. Fim
Ajustar rs = nada
Ajustar dbs = nada