Can you remark out one of the update lines:
Code:
Dim db As Database
Dim Rslt As Recordset

Set db = CurrentDb()
Set Rslt = db.OpenRecordset("Result")
Rslt.AddNew
Rslt("Field1") = msg_id
'Rslt("Field2") = comment '<< commented out
Rslt.Update

set rslt = nothing
try to run to see if it is one of the data fields you are passing that is not right.

Also press ctrl+g and type:
Code:
?msg_id,comment
then press return... does that print out the two data items correctly?