Mały błąd. Zmiana rst rs:
Ciemnawy dbs Jako Baza danych
Ciemnawy rs Jako Recordset
Ustalony dbs = CurrentDb
Ustalony rs = dbs.OpenRecordset ("qryData")
MsgBox "The suma dla" & rs! fldOne & "dla the" & rs! fldThree & "być" & rs! fldTotal
rs. Zakończenie
dbs. Zakończenie
Ustalony rs = Nic
Ustalony dbs = Nic