C# / VB.NET - word

ciao, sto cercando di crearmi un documento word tramite la pressione di un bottone che ho nella mia form.
Riesco ad aprirmi il documento e a valorizzare alcuni dati ma non riesco a riempirmi una tabella con i dati che ho carcati nella form , il mio codice è questo, sapreste aiutarmi?
Public Sub CreaFileWord()
' Creo una nuova istanza di Word
Dim Data As Date
Data = Date.Today

' Replace string "\MyServer" with name of the remote computer.

WordApp = CreateObject("Word.Application"
WordApp.Visible = True

Dim objDoc As Object


' apro il file word prendendolo dalla directory di questo progetto
objDoc = WordApp.Documents.Open("C:\Programmi\Sindacato\" + _
"SoftUIL\RiepilogoIscritti.doc"


'ora chiamo la funzione InserisciVariabileWord per ogni variabile
'che voglio sostituire

Dim Dt As New System.Data.DataTable
Dt = xDb.myDataTable("SELECT NOME, COGNOME, AZIENDA FROM ISCRITTI"

Dim MyRange As Object
MyRange = objDoc.Content


InserisciVariabileWord("%Data%", Data)
InserisciVariabileWord("%TotIscr%", txtTotIscr.Text.Trim)
InserisciVariabileWord("%TotRinu%", txtRin.Text.Trim)
InserisciVariabileWord("%cognome%", Dt.Rows.Item(0).Item("COGNOME")
InserisciVariabileWord("%nome%", Dt.Rows.Item(0).Item("NOME")
InserisciVariabileWord("%azienda%", Dt.Rows.Item(0).Item("AZIENDA")


' ora che abbiamo il testo possiamo salvare il documento
WordApp.Documents.Item(1).SaveAs("C:\Programmi\Sindacato"+ _
"\RiepilogoIscritti.doc"

'WordApp.Documents.Application.ShowMe()
WordApp.Documents.Open("C:\Programmi\Sindacato\"+ _
"RiepilogoIscritti.doc"


' chiudiamo l'istanza di Word precedentemente creata
'WordApp.Quit()

'distruggo esplicitamente l'istanza di word creata in precedenza
'per evitare problemi di memoria e' sempre opportuno farlo
'UPGRADE_NOTE: È possibile che l'oggetto WordApp non venga eliminato finché non venga raccolto nel Garbage Collector. Fare clic qui per ulteriori informazioni: 'MS.VSCC.2003/commoner/redir/
redirect.htm?keyword="vbup1029"'
'WordApp = Nothing
End Sub

Public Sub InserisciVariabileWord(ByRef sVariabile As String, ByRef sValore As String)

'Dim WordInt As New Microsoft.Office.Interop.Word.WdReplace

WordApp.Selection.Find.ClearFormatting()
WordApp.Selection.Find.Replacement.ClearFormatting()
With WordApp.Selection.Find
.Text = sVariabile
.Replacement.Text = sValore
.Forward = True
.Wrap = 1
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
'WordApp.Selection.Find.Execute(Replace:=Microsoft.Office.
Interop.Word.WdReplace.wdReplaceAll.wdReplaceAll)
WordApp.Selection.Find.Execute(Replace:=2)
End Sub

Non ho capito bene la domanda.
Vuoi dire che hai caricato un solo elemento?