Малые ошибки. Измените rst к rs:
Затемните dbs как база данных
Затемните rs как Recordset
Установите dbs = CurrentDb
Установите rs = dbs.OpenRecordset («qryData»)
MsgBox «итог для» & rs! fldOne & «для» & rs! fldThree & «» & rs! fldTotal
rs. Конец
dbs. Конец
Установите rs = ничего
Установите dbs = ничего