Address Email

I have the following code set up to send an email. I want it to automatically
enter a comma after the name in [BusAutRepresentative] but can't quite figure
it out. I've tried inserting & "," after the field name and before the
separating comma. It doesn't debug but it doesn't insert the comma either.
What am I doing wrong?

Private Sub Command48_Click()
Dim strDocName As String
Dim strWhere As String
strDocName = "Requests"
strWhere = "[ID]=" & Me!txt_ID
DoCmd.OpenReport strDocName, acPreview, , strWhere
DoCmd.SendObject acSendReport, "Requests", acFormatRTF,
[BusAutRepresentative], , , _
"Request: " & [txt_ID] & " " & [Topic/Project Name]

End Sub