Problem with Mail Merge using VBA

I am trying to do a mail merge using the following code. The problem is the code executes but I get a dialog box asking me to confirm the Data Source. No matter which I choose the document does not populate. When I merge to the document through accesses merge utility I have no problems. I need this to merge without asking to confirm the data source as many people will be using this for many merges. Any help is appreciated.

Thanks
Steve

Private Sub MergeIt(strFilepath As String, strCriteria As String, intReportType As Integer)
   Dim objWord As Word.Document
   
On Error GoTo Err_MergeIt
   
   Set objWord = GetObject(strFilepath, "Word.document")
   ' Make Word visible
   objWord.Application.Visible = True
   
   'Set mail merge data source as current database
   If intReportType = 1 Then
      objWord.MailMerge.OpenDataSource _
      Name:="C:\GIMS_HS\GIMS-HS-DEV.mdb", _
      LinkToSource:=True, _
      Connection:="Query qryFundedAwards-Fully", _
      SQLStatement:="Select * from [qryFundedAwards-Fully]Where " & strCriteria
   ElseIf intReportType = 2 Then
      objWord.MailMerge.OpenDataSource _
      Name:=CurrentDb.Name, _
      LinkToSource:=True, _
      Connection:="Query qryFundedAwards-Partial", _
      SQLStatement:="Select * from [qryFundedAwards-Partial]Where " & strCriteria
   ElseIf intReportType = 3 Then
      objWord.MailMerge.OpenDataSource _
      Name:=CurrentDb.Name, _
      LinkToSource:=True, _
      Connection:="Query qryFundedAwards-NonFunded", _
      SQLStatement:="Select * from [qryFundedAwards-NonFunded]Where " & strCriteria
   End If
   
   ' Execute the Mail Merge
   objWord.MailMerge.Execute
   Set objWord = GetObject(strFilepath, "Word.document")
   objWord.Application.Visible = True
   
Err_MergeIt_Exit:
   Exit Sub

Err_MergeIt:
   MsgBox "Error No: " & Err.Number & "; Description; " & Err.Description, , _
                     "frmfrmPrintAwardLetters_MergeIt"
   Resume Err_MergeIt_Exit
   

End Sub