Questo esempio utilizza la stampa unione, dai un occhiata se ti può essere utile, l'istruzione che unisce i dati è la seguente
wrdMailMerge.Execute(False)





Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim wrdSelection As Word.Selection
Dim wrdMailMerge As Word.MailMerge
Dim wrdMergeFields As Word.MailMergeFields

Dim StrToAdd As String

' Create an instance of Word and make it visible.
wrdApp = CreateObject("Word.Application")
wrdApp.Visible = False

' Add a new document.

wrdDoc = wrdApp.Documents.Open("C:\mio.doc")
wrdDoc.Select()

wrdSelection = wrdApp.Selection()

wrdDoc.MailMerge.DataSource.QueryString = wrdDoc.MailMerge.DataSource.QueryString & " where miatab.id=3"
wrdMailMerge = wrdDoc.MailMerge()

' Perform mail merge.

wrdMailMerge.Destination = Word.WdMailMergeDestination.wdSendToNewDocument

wrdMailMerge.Execute(False)





wrdSelection = Nothing
wrdMailMerge = Nothing
wrdMergeFields = Nothing
wrdDoc = Nothing
wrdApp = Nothing


End Sub