Runtime Error 5631

[LisaPatch]

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