Access VBA OpenRecordset Error

[Mac1206]

I have a VBA code cmdSendRpt_Click() button that errors on Set rst = CurrentDB.OpenRecordset(strSql) and when I hover over the error it says rst = Nothing and I can't for the life of me understand why....

Private Sub cmdSendRpt_Click()

Dim rst As DAO.Recordset
Dim strSql As String

strSql = "Select * FROM Max_Pymt_EmailDetails;"

Set rst = CurrentDb.OpenRecordset(strSql)

Do While Not rst.EOF

Me.txtID = rst![ID]


DoCmd.SendObject acOutputQuery, "Max_Pymt_EmailDetail1", acFormatXLS, "email", , "This is just a test to email delivery", "Hello, this is working properly and we are on our way", False

DoEvents
rst.MoveNext


Loop


rst.Close

Set rst = Nothing


End Sub

This is my query:

SELECT Max_Pymt_PymtEmailDetail.ID, Max_Pymt_PymtEmailDetail.Email
FROM Max_Pymt_PymtEmailDetail;

 

[JonXL]

What is the error?

 

[welshgasman]

You have 'Emails' in your strSQL string?

 

[Mac1206]

You have 'Emails' in your strSQL string?

That issue was resolved after recreating my recordset, sorry for the delay in my response....