Ошибки MS Access VBA электронной почте отчет

Question

Я получаю сообщение об ошибке при запуске этого кода.

Sub SendEmailMaturing()
    Dim rs As DAO.Recordset
    Dim db As Database
    Dim strSQL As String

    Set db = CurrentDb

    strSQL = "SELECT * FROM qRespCodeEmail"
    Set rs = CurrentDb.OpenRecordset(strSQL)

    If Not rs.BOF And Not rs.EOF Then
        rs.MoveFirst
        Do While Not rs.EOF
            'Debug.Print rs.Fields("RMName")
            DoCmd.OpenReport "Maturing Loans in 90", acViewPreview, , "RespName = " & rs!RMName
            DoCmd.SendObject acSendReport, "Maturing Loans in 90", acFormatPDF, rs!Email, , , "Maturing Loans", "Kindly take a look and send me an update on the status of matured loans.", True
            DoCmd.Close acReport, "Maturing Loans in 90", acSaveNo

            rs.MoveNext
        Loop
    End If

    rs.Close
    Set rs = Nothing
End Sub