wordApp.Documents.Open FileName:=WordPath, ReadOnly:=True
If err <> 0 Then MsgBox "התרחשה שגיאה בפתיחת הוורד" & vbCrLf & err.Description, vbOKOnly + vbQuestion + vbMsgBoxRight + vbMsgBoxRtlReading: Exit Function

With wordApp.ActiveDocument.MailMerge
    .MainDocumentType = wdFormLetters
    .OpenDataSource _
        Name:=XlsxPath, _
        SQLStatement:="select * from TEMP"
    .Destination = wdSendToPrinter
    .ViewMailMergeFieldCodes = 9999998
    .ShowWizard InitialState:=6, ShowDataStep:=False, ShowTemplateStep:=False
    .SuppressBlankLines = True
    .Execute
End With
wordApp.Quit False
Set wordApp = Nothing

השגיאה מופיעה על הקטע

.OpenDataSource _
        Name:=XlsxPath, _
        SQLStatement:="select * from TEMP"

מה יכולה להיות הבעיה?
תודה!