Stringing Data in a file

Hi, I have some access vba code that I want to read a recordset, and for each record add another row of information to the body of an email. Is there a way of doing it? I basically want to send one email with a list of numbers in, instead of one email for each record I find.

Set db = CurrentDb
SQLstr = "SELECT Audits.[Local Project Reference] fROM Audits WHERE (((Audits.[Target Completion Date])<Date()) AND ((Audits.[Date completed]) Is Null))"
Set rst = db.OpenRecordset(SQLstr)
If rst.EOF = False Then
rst.MoveFirst
Do Until rst.EOF
'string audit nums together to put in email body.
rst.MoveNext
Loop
'call mail
Else
End If

Sure, as you read through your recordset build the email body in a string variable. Once you've processed the recordset use the variable you created as the body of the email message.

do while not rs.eof
mystring = rs("somecolumn") & vbcrlf
rs.movenext
loop