Private Sub Command495_Click()
'On Error GoTo ErrorHandler
 Dim db As DAO.Database
 Set db = CurrentDb()
 Dim rs As DAO.Recordset
 Dim strSQL As String
 Dim Docs As String
 Dim MsgHtml As String
 Dim objbp As Object
        
 strSQL = "SELECT Stips.Document " _
         & "FROM Stips " _
         & "WHERE Deal_ID =" & (Forms!Application!Deal_ID And Received = False) & ";"
         
 Set rs = db.OpenRecordset(strSQL)
 rs.MoveFirst

 Do While (Not rs.EOF)

 If Not IsNull(rs!Document) Then
 Docs = Docs & rs!Document & "; "
 End If

 rs.MoveNext
 Loop
 rs.Close

Docs = Left(Docs, Len(Docs) - 2)

& "WHERE Deal_ID =" & (Forms!Application!Deal_ID) & "And Received =" & False & ";"

...& " And  Not Received"