Каковы причины ошибки времени выполнения 5631? Как решить эту проблему?

Question

Я пытаюсь реализовать процедуру, которая заполняет шаблон Word данными, сохраненными на SQL-сервере.У меня ошибка «5631» [Word не удалось объединить основной документ с источником данных, поскольку записи данных были пустыми или ни одна из записей данных не соответствовала параметрам вашего запроса »] указывает на« .Execution pause: =false "

Я действительно не могу выяснить причину этой проблемы. Спасибо за любую помощь.

Вот фрагмент кода:

Set wrdApp = CreateObject("Word.Application")
        With wrdApp
            Set wrdDoc = .Documents.Add(sTemplate, False)
            With wrdDoc.MailMerge
                .MainDocumentType = wdFormLetters
                .OpenDataSource Name:="d:\connect.odc" _
                    , ConfirmConversions:=False _
                    , ReadOnly:=False _
                    , LinkToSource:=False _
                    , AddToRecentFiles:=False _
                    , Revert:=False _
                    , Format:=wdOpenFormatAuto _
                    , Connection:=EPLconnectWord(bAcc) _
                    , SQLStatement:="SELECT * FROM [" & sTable & "] WHERE [UserID] = " & lUserID _
                    , SQLStatement1:="" _
                    , SubType:=wdMergeSubTypeOther

                If .State = wdMainAndSourceAndHeader Or .State = wdMainAndDataSource Then
                    .ViewMailMergeFieldCodes = False
                End If
                .Destination = wdSendToNewDocument
                .SuppressBlankLines = True
                With .DataSource
                    .FirstRecord = wdDefaultFirstRecord
                    .LastRecord = wdDefaultLastRecord
                End With
                .Execute Pause:=False
                wrdDoc.ActiveWindow.View.ShowFieldCodes = False
                wrdDoc.Close wdDoNotSaveChanges
            End With ' wrdDoc.MailMerge