If rsEmail.Fields(7) = "Broker" Then
DoCmd.OpenReport "Statementrptemail", acViewPreview, , "AccountNo = " & rsEmail.Fields(0) & "" '"
DoCmd.OutputTo acOutputReport, , acFormatPDF, "S:\Apex Data\ARC INTERNATIONAL\Statements\" & .Fields(6) & ".pdf", False
DoCmd.Close acReport...