I have created the following macro to use within a letter, trying to make it as effortless for our users as possible.  The problem is when you go to run the macro you are prompted by the Confirm Data Source box everytime.  Is there a way to add code into the OpenDataSource part of the macro that recognizes the following steps, so the user doesn't have to do this everytime?:

1.  Confirm Data Source box - check the show all box and click ok button
2.  Pick text files from list and click ok button
3.  Header Record Delimiters box - choose , for field delimiter and (enter) for record delimiter

************************************************************************************************
Sub ADINC()
'
' ADINC Macro
' Macro recorded 5/18/2004 by jwheeler
'
   ActiveDocument.MailMerge.OpenDataSource Name:= _
       "C:\Documents and Settings\jwheeler\Desktop\ADINC_JWHEELER_CQO", _
       ConfirmConversions:zlse, ReadOnly:zlse, LinkToSource:=True, _
       AddToRecentFiles:zlse, PasswordDocument:="", PasswordTemplate:="", _
       WritePasswordDocument:="", WritePasswordTemplate:="", Revert:zlse, _
       Format:=wdOpenFormatAuto, Connection:="", SQLStatement:="", SQLStatement1 _
       :="", SubType:=wdMergeSubTypeOther
   With ActiveDocument.MailMerge
       .Destination = wdSendToNewDocument
       .MailAsAttachment = False
       .MailAddressFieldName = ""
       .MailSubject = ""
       .SuppressBlankLines = True
       With .DataSource
           .FirstRecord = wdDefaultFirstRecord
           .LastRecord = wdDefaultLastRecord
       End With
       .Execute Pause:=True
   End With
End Sub
************************************************************************************************

Any help would be greatly appreciated.

TIA
--------------------------------
From: Jadie Wheeler

-----------------------
Posted by a user from AdminLife (http://www.adminlife.com/)

<Id>jDV+gn5O70SmWyOSk0z60A==</Id