Runtime Error Help

The following code emails with attachment, however about 10 emails in a get a 2501 runtime error, can someone help it's driving me crazy?


Private Sub Command134_Click()
Dim MyDb As DAO.Database
Dim rsEmail As DAO.Recordset
Dim sToName As String
Dim sSubject As String
Dim sMessageBody As String


Set MyDb = CurrentDb()
Set rsEmail = MyDb.OpenRecordset("Contractors With Jobs Not Atteded On Time", dbOpenSnapshot)

Do Until rsEmail.EOF
Me.Combo130 = rsEmail!Contractor
sToName = rsEmail!Email
sSubject = "Jobs Not Achieving Attended On Time " & rsEmail!Email
sMessageBody = "Please Find Attached Jobs Not Achieving Attended On Time " & rsEmail!Contractor

Const cTIME = 1500 'in MilliSeconds
Call sSleep(cTIME)

DoCmd.SendObject acSendReport, "Jobs Not Achieving Attended On Time", acFormatRTF, sToName, , , sSubject, sMessageBody, False, False

rsEmail.MoveNext
Loop

Set MyDb = Nothing
Set rsEmail = Nothing
End Sub