Small errors. Change rst to rs:
Dim dbs As Database
Dim rs As Recordset
Set dbs = CurrentDb
Set rs = dbs.OpenRecordset("qryData")
MsgBox "The total for " & rs!fldOne & " for the " & rs!fldThree & "is " & rs!fldTotal
rs.Close
dbs.Close
Set rs = Nothing
Set dbs = Nothing
