MailMergeDataSource.Name (Word)

Returns name of the specified object.

Dim strName As String
strName = ActiveDocument.MailMerge.DataSource.Name