Returns a MailMergeDataSource object that refers to the data source attached to a mail merge main publication.
expression.DataSource
expression Required. An expression that returns one of the objects in the Applies To list.
This example displays the path and file name of the data source attached to the active publication.
Sub DataSourceName()
With ActiveDocument.MailMerge.DataSource
If .Name <> "" Then _
MsgBox "The path and filename of the " & _
"attached data source is : " & vbCr & .Name
End With
End Sub