Runtime Error 5631

Hi guys

I am getting the "Runtime error 5631Word could not merge the main document with the data source because the data records were empty or no data records matched your query options." in the following code:

Public Sub MergeDocs()
 with getobject("J:\System\Sample.doc")
  .mailmerge.execute
  with .application.activedocument
    .PrintOut 
    .Close 0
  end with
  .close 0
 End With
End Sub

Hi Roy

This code is written in Excel vba but it prints off the Word document when the button in the userform is pressed.

Thanks a lot.