Getting all the subforms Addresses to display in email text when sendi

[ImStuk]

I have an Order form that has a subform of addresses. Each order has several addresses. I use the below code to send the order via email. I want the email text to display all the addresses in the subform, but so far I have only been able to get it to display the first address. Any help on this would be greatful.

Dim stDocName As String
stDocName = "rptKnoxWorkOrder"
DoCmd.SendObject acReport, stDocName, "Snapshot Format
(*.snp)", "dispatch@blahblah.com", , , [cmbAttention] & "
has a new Order", [cmbRequestType] & " to " & [Forms]!
[frmNewOrder]![frmNewOrderSub]![ServiceAddress] & " due
by " & [txtLastDaytoServe] & " at " & [txtTimeDue], 1

 

[ImStuk]

I have been trying a DLookUp string on this, but I keep getting a Data Type mismatch error. I am really needing some help on this...

 

[GoinDeep]

My subForm is set to single form, so I wonder if that has something to do with it. Somebody help us!!