I was able to elimate the "Remote Server Unavailable ..." with the following
code replacement. However, now the WHERE clause in the OpenDataSource is
ignored.

Could someone tell me why?

TIA

Vic

**Code Follows **

Dim strLoginName      As String
Dim strMyDocuments    As String
Dim WordWasNotRunning As Boolean ' Flag For final word unload
Dim strDocument       As String
Dim strWhereClause    As String
Dim WordApp           As Word.Application
Dim WordDoc           As Word.Document

On Error GoTo ErrorHandler

   strDocument = "CoverLetter.doc"
   strLoginName = "Vic"
   strMyDocuments = "C:\Client Databases\Hughes Supply\Word Docs\"

   Set WordApp = CreateObject("Word.Application")
   'WordApp.Visible = True
   Set WordDoc = WordApp.Documents.Open(strMyDocuments & "\" & strDocument)

   With WordDoc
       strWhereClause = "WHERE JobID = '" & frmMain.txtJobid & "'"
       ActiveDocument.MailMerge.OpenDataSource Name:= _
               "C:\Documents and Settings\vic.HOME\My Documents\My Data
Sources\Hughes_Jobs vuCoverLetter.odc" _
               , ConfirmConversions:=False _
               , ReadOnly:=False _
               , LinkToSource:=True, _
           AddToRecentFiles:=False _
               , PasswordDocument:="" _
               , PasswordTemplate:="", _
           WritePasswordDocument:="" _
               , WritePasswordTemplate:="" _
               , Revert:=False, _
           format:=wdOpenFormatAuto _
               , Connection:= _
                   "Provider=MSDASQL.1;Persist Security Info=True;" _
                   & "Extended Properties=""" _
                   & "DSN=HughesSupply;" _
                   & "Description=Hughes Supply Jobs;" _
                   & "UID=vic;APP=Microsoft Office XP;" _
                   & "WSID=VIC-XP;" _
                   & "DATABASE=Hughes_Jobs;" _
                   & "Trusted_Connection=Yes"";" _
                   & "Initial Catalog=Hughes_Jobs" _
               , SQLStatement:="SELECT * FROM [vuCoverLetter]" _
               , SQLStatement1:=strWhereClause, _
           SubType:=wdMergeSubTypeOther

       ActiveDocument.MailMerge.MainDocumentType = wdFormLetters

   End With

   WordApp.Visible = True
   WordApp.Application.Activate
   On Error Resume Next
   Set WordApp = Nothing
   Set WordDoc = Nothing

Exit Sub

ErrorHandler:
   MsgBox "Error: " & Err.Number & Err.Description

Hi Vic,

The usual cause for the message, in my experience, is that you haven't "cleaned
up after yourself". Your code has left an orphaned pointer to something in the
Word instance you were using, before, which is blocking the second execution of
your code.

The first thing in your code I see that makes me wonder is:

Set oApp = CreateObject("Word.Application")

On Error GoTo ErrorHandler

Set WordApp = GetObject(, "Word.Application")

If you use CreateObject to set oApp you certainly don't need to set an
additional object variable (WordApp) using GetObject. Try

   On Error GoTo ErrorHandler
   Set WordApp = CreateObject("Word.Application")
   Set WordDoc = 'etc.

Remove oApp from your declarations, and the Set to Nothing near the end.

Then: you've created a document (WordDoc) and made it into the main merge
document. Why do you then proceed to use ActiveDocument? Subsitute WordDoc
everywhere you've used ActiveDocument.

And lastly - and this is probably the cause of the problem - you need to set
the object variables to nothing in the reverse order in which they were
instantiated. So put Set WordDoc = Nothing BEFORE Set WordApp = Nothing.

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or reply
in the newsgroup and not by e-mail :-)