Error 5922 when opening a mailmerge document in Word

[Willis Wilson]

Platform: Access 2003 SP2 and Windows XP.

I've tried a number of different scenarios and none of them seem to work

The "OpenDataSource" statement gives a Run-time error 5922. Please help find my error.

'********************************************

Dim wdApp As Word.Application, wd As Word.Document, strConnection As String
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = False
xPathDoc = "C:\Documents and Settings\BDA Software\LienWaiver.doc"
Set wd = wdApp.Documents.Open(xPathDoc, , True)
Dim wdMM As Word.MailMerge, strSourceFile As String
Set wdMM = wdApp.Documents(xPathDoc).MailMerge
With wdMM
.MainDocumentType = wdFormLetters
.OpenDataSource Name:="C:\Documents and Settings\BDA Software\Database.mdb", _
LinkToSource:=True, _
Connection:="TABLE tblLienWaiver", _
Sqlstatement:="SELECT * from tblLienWaiver"
.Destination = wdSendToPrinter
.SuppressBlankLines = False
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute 'Pause:=False
End With

Set wdMM = Nothing
wd.Close wdDoNotSaveChanges
wdApp.Quit
Set wdApp = Nothing
Exit Sub
' *********************************
Thank you, Willis

[NeoPa]

Willis,

Could you please post the Error Message and perhaps repost the code in the code tags formatted as it would be normally.
That would make life so much easier.
It's really hard to scan through code without any of the visual symbols included in normal code formatting (indentation etc).

[Willis Wilson]

Willis,

Could you please post the Error Message and perhaps repost the code in the code tags formatted as it would be normally.
That would make life so much easier.
It's really hard to scan through code without any of the visual symbols included in normal code formatting (indentation etc).

*****************
Below is the code, however the following is selected when I get:
Microsoft Office Word

This operation cannot be completed because of dialog or database engine failures. Please try again later

After clicking 'Okay' the following error message is returned:

Run-time Error '5922'

the code in quotes is highlighted
*********************

Dim wdApp As Word.Application
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = False
xPathDoc = "C:\Documents and Settings\BDA Software\LienWaiver.doc"
Dim wd As Word.Document
Set wd = wdApp.Documents.Open(xPathDoc, , True)
Dim wdMM As Word.MailMerge
Set wdMM = wdApp.Documents(xPathDoc).MailMerge
With wdMM
    .MainDocumentType = wdFormLetters
 
        
                    .OpenDataSource Name:="C:\Documents and Settings\BDA Software\Database.mdb", _
    LinktoSource:=True, _
    Connection:="TABLE tblLienWaiver", _
    SQLStatement:="SELECT * from tblLienWaiver"
 
 
    .Destination = wdSendToPrinter
    .SuppressBlankLines = False
    With .DataSource
        .FirstRecord = wdDefaultFirstRecord
        .LastRecord = wdDefaultLastRecord
        End With
    .Execute 'Pause:=False
    End With

[NeoPa]

I don't know the correct syntax for this command, but I would guess the Connection parameter is wrong. Can you check Help for the correct syntax?
I would expect something like "TABLE=tblLienWaiver;" but I'm no expert in this.

[Willis Wilson]

I don't know the correct syntax for this command, but I would guess the Connection parameter is wrong. Can you check Help for the correct syntax?
I would expect something like "TABLE=tblLienWaiver;" but I'm no expert in this.

No, that is not the problem.