Doug,
Thank you for the response.
Here is the sub routine that merges the documents.
The process stops at the line with *=*=*=*=*=*=*=*=*
Any ideas would be appreciated.
No errors are returned, the process just stops.

*********************************
Public Sub Do_MailMerge(ByRef wdapp As Word.Application)
       
Dim adoMergeRS As ADODB.Recordset
Dim strSQL As String
On Error GoTo MergeError

strSQL = "Select * from " & tablename & " where swLetterHistId = " &
adoInitialRS.Fields("swLetterHistId").Value

adoMergeRS = New ADODB.Recordset
'Opening the recordset
adoMergeRS.Open(strSQL, dbconnection, ADODB.CursorTypeEnum.adOpenStatic,
ADODB.LockTypeEnum.adLockOptimistic)
       
'Do the mail merge
''    wdapp.Documents(1).MailMerge.MainDocumentType = wdFormLetters''        
wdapp.Documents(1).MailMerge.OpenDataSource Name:="",
ConfirmConversions:=False, _
'''        ReadOnly:=False,
Connection:="dsn=inCITe1;uid=swb;pwd=vantive;database=vantive",
LinkToSource:=True, AddToRecentFiles:=False, _
'''        PasswordDocument:="", PasswordTemplate:="",
WritePasswordDocument:="", _
'''        WritePasswordTemplate:="", Revert:=False,
Format:=wdOpenFormatAuto, _
'''        SQLStatement:=strSQL
wdapp.Documents.Item(1).MailMerge.MainDocumentType =
Word.WdMailMergeMainDocType.wdFormLetters
wdapp.Documents.Item(1).MailMerge.OpenDataSource(Name:="",
ConfirmConversions:=False,
ReadOnly:=False,
Connection:=strDSN,
LinkToSource:=True,
AddToRecentFiles:=False,
PasswordDocument:="",
PasswordTemplate:="",
WritePasswordDocument:="",
WritePasswordTemplate:="",
Revert:=False,
Format:=Word.WdOpenFormat.wdOpenFormatAuto, SQLStatement:=strSQL)
       
'"DSN=inCITe;uid=swb;pwd=Pswrd"
With wdapp.Documents.Item(1).MailMerge    *=*=*=*=*=*=*=*=**=*=*=*
            .SuppressBlankLines = True
            .Destination = Word.WdMailMergeDestination.wdSendToNewDocument
            .Execute((False))
End With
       
'Free Memory
strSQL = ""
       
'MsgBox "Mailmerge successful so far"
       
Exit Sub
MergeError:
'  MsgBox "Check table " & adoInitialRS!swLetterHistId
Select Case Err.Number
Case 5631 'No records matched the select or they were empty
blnMergeFailed = True
Error_Logger(Err.Number, Err.Description, "Do Mail Merge")
Case 5922 'Word was unable to open the data source
Error_Logger(Err.Number, Err.Description, "Do Mail Merge")
blnMergeFailed = True
Case 462 'The ODBC Connection has been lost,
'Database server or network Connection has failed
Error_Logger(Err.Number, Err.Description, "Do Mail Merge")
blnMergeFailed = True
Close_dbConnection()
Case -2147418111 'Automation error Call was rejected by callee.
Error_Logger(Err.Number, Err.Description, "Do Mail Merge")
blnMergeFailed = True
Close_dbConnection()
Case Else
Error_Logger(Err.Number, Err.Description, "Do Mail Merge")
blnMergeFailed = True
End Select
    End Sub
*************************