Docmd.OpenReport показывает первую запись, но не отдыхает в наборе записей

Question

Я использую код ниже для go через набор записей и отправляю отдельные отчеты человеку. Все работает, но предварительный просмотр в openreport для всех, кроме первого отчета, пуст. Попытка выяснить, почему, если это посылает правильный отчет человеку. Он действует так, как будто он открывает отчет и показывает его, затем закрывает, но нет ничего, кроме пустой страницы. Любые мысли будут оценены!

    Private Sub Command0_Click()


    Dim daDb As DAO.Database
    Dim daRs As DAO.Recordset
    Dim sSql As String

    sSql = "SELECT * FROM EmailedContributions;"

    Set daDb = CurrentDb
    Set daRs = daDb.OpenRecordset(sSql, dbOpenSnapshot)

    Do Until daRs.EOF

    Debug.Print daRs!MemberID
    Debug.Print daRs!EmailName
    DoCmd.OpenReport "Copy Of IRS Contribution Letter", acViewPreview, , "MemberID = " & daRs!MemberID,   acWindowNormal
    DoCmd.SendObject acSendReport, "Copy Of IRS Contribution Letter", acFormatPDF, daRs!EmailName, , , "IRS Contributions", "Attached are your contributions", False
    DoCmd.Close acReport, "Copy Of IRS Contribution Letter"

    Debug.Print daRs!EmailName
    daRs.MoveNext

    Loop

    daRs.Close
    Set daRs = Nothing
    Set daDb = Nothing

    End Sub