Create strings and use that - it's easier to debug and read as well - you are missing out on concatenating the string values;
Code:
Dim sSubject as String
Dim sMessasge as String
sSubject = "Safety Training Record for: " & Me.Associate
sMessage = "The attachment shows the current safety-related training for the Associate indicated in the email Subject line." _
& vbCrLf & "Please contact Safety if you have any questions about the information on this record, or if you have the need to schedule training."
DoCmd.SendObject acSendForm, "frmAssociateTraining", acFormatPDF, , , , sSubject, sMessage