Getting an unexpected error in the code of a function

I have a function to perform a MailMerge as follows:

Function PrepForWord()

Dim objWord As Word.Application

Dim objDoc As Word.Document

Dim objMailMerge As Word.MailMerge

DoCmd.SetWarnings False

DoCmd.OpenQuery "CertInfo2"

DoCmd.OpenQuery "CertInfo3" - these queries create the table CertProdInfo

DoCmd.SetWarnings True

Set objWord = CreateObject("Word.Application")

objWord.Visible = True ' Set to True if you want to see Word open

Set objDoc = objWord.Documents.Open("C:\Users\nevadamax\OneDrive\Documents\USWelding\CertificationReport.docx")

Set objMailMerge = objDoc.MailMerge

objMailMerge.MainDocumentType = wdFormLetters

objMailMerge.OpenDataSource Name:="C:\Users\nevadamax\OneDrive\Documents\USWelding\MATERIALS2016CERT.accdb", SQLStatement:="SELECT * FROM CertProdInfo"

objMailMerge.Execute

End Function

I am getting the following error on the bolded line:

However the table "CertProdInfo" does exist as you can see:

What am I doing wrong?

Thanks in advance.