I am doing what you suggested. See my code that follows:
   With rsTemplates
       Do Until .EOF
           Set rsTempDocs = db.OpenRecordset("Select
TemplateDescription, TemplateFilename From
Template_Matrix Where TemplateCode = " & Chr(34) &
rsTemplates!Template & Chr(34), dbOpenSnapshot)
           
           'Test to see if TemplateFilename is valid
else move all records with this templatecode, error
message missing word document, Call Programmer
           'remove records and continue processing if at
least one record remaining
           Dim fs
           Set fs = CreateObject
("Scripting.FileSystemObject")
           If Not (fs.FileExists(TemplateDirectory &
rsTempDocs!TemplateFilename)) Or IsNull(rsTempDocs!
TemplateFilename) Then
               If Not (Process_Errors(rsTemplates!
Template, "Missing/Invalid Template Word Document. Call
Programmer")) Then
                   Set fs = Nothing
                   MsgBox "Critical Error! Unable to
process! Aborting Mail Merge!",
vbCritical, "EvergreenWare"
                   GoTo Normal_Exit
               End If
               Set fs = Nothing
               GoTo Get_Next_Record
           End If

           On Error GoTo MailMerge_Err
           Dim objWord As Word.Application
           Dim objDoc As Word.Document
           Dim strSQl As String
           Dim strConnection As String
           
'            Set objWord = CreateObject
("Word.Application")
           Set objWord = New Word.Application
           Set objDoc = GetObject(TemplateDirectory &
rsTempDocs!TemplateFilename, "Word.Document")
           
'            objWord.Application.Visible = True
           
           strSQl = "Select * From " & txtSourceData & "
Where Selected = True and Template = " & Chr(34) &
rsTemplates!Template & Chr(34)
           Set rsLetters = db.OpenRecordset(strSQl,
dbOpenSnapshot)
           rsLetters.MoveLast
           rsLetters.MoveFirst
           prgBar.Value = IIf(prgBar.Value +
rsLetters.RecordCount > prgBar.Max, prgBar.Max,
prgBar.Value + rsLetters.RecordCount)
           
           strConnection =
Application.CurrentProject.Path & "\MailMerge10.mdb"
           
           objDoc.MailMerge.OpenDataSource
Name:=strConnection, SQLStatement:=strSQl

           objDoc.MailMerge.Destination =
wdSendToNewDocument
           objDoc.MailMerge.Execute Pause:=False
           
           objDoc.Application.Options.PrintBackground =
False
           objDoc.Application.ActiveDocument.PrintOut

           objDoc.Close SaveChanges:=wdDoNotSaveChanges
           objWord.Quit (wdDoNotSaveChanges)
           Set objWord = Nothing
           
           
Get_Next_Record:
           .MoveNext
       Loop
   End With
----------------------------------
this causes Opening this document will run the follow SQL
command: SELECT * FROM dtaRecoveryLetters    Data from
your database will be placed in the document. Do you want
to continue?

I do not want this prompt to appear. The merge should be
seamless and not visible to the user. The document should
be merged, printed and the document closed.

any other suggestions? thanks for your assistance.