Visual Basic - Insertar linea en Word con VB

Hola a todos.
Estoy escribiendo una aplicacion para automatizar unos formularios en word desde Visual Basic. Ya se como rellenar las tablas pero estoy liado en como insertar un comentario en una posicion dada de una linea en concreto.
¿Podeis ayudarme?

Gracias

Lo que puedes hacer es grabar una macro en Word con lo que quieres y luego pegar el código en tu aplicación.

Hola!!!
estoy realizando un programa que tiene similitudes con el tuyo.
El caso es que tengo una base de datos llamada Cuestionario en la siguiente ubicación: C:ProyectoCuestionario.mdb
y lo que quiero hacer es que los campos de la tabla "Datos" que son "numinicio" y "numfinal" aparezcan en el documento word que yo desee abrir.

Ej: Nº Cuestionario: numinicio
Nº Páginas: numfinal

Por lo pronto tengo implementado parte del código pero me da bastantes problemas, aparte de que crea un documento word en le que poner los datos y no me deja abrir uno que yo seleccione.

Estoy bastante perdido aquí!!! También estoy pensando en pasar directamente los campos desde el formulario visual al documento Word

Que código utilizaste tu??????
¡¡¡GRACIAS!!!

La parte del código que tengo hecha es la siguiente:

Private Sub Form_Load()
'Start Word.
Set oApp = CreateObject("Word.Application")
End Sub
Private Sub Command1_Click()
Dim oMainDoc As Word.Document
Dim oSel As Word.Selection
Dim sDBPath As String

'Start a new main document for the mail merge.
Set oMainDoc = oApp.Documents.Add

With oMainDoc.MailMerge

.MainDocumentType = wdFormLetters

'Set up the mail merge data source to Northwind.mdb.
sDBPath = "C:ProyectoCuestionario.mdb"
.OpenDataSource Name:=sDBPath, _
SQLStatement:="SELECT * FROM [Datos]"

'Add the field codes to the document to create the form letter.
With .Fields
Set oSel = oApp.Selection
.Add oSel.Range, "Nº Cuestionario, [numinicio]"
oSel.TypeParagraph
.Add oSel.Range, "Nº Pagina, [numfinal]"
oSel.TypeParagraph

End With
End With

'Perform the mail merge to a new document.
With oMainDoc
.MailMerge.Destination = wdSendToNewDocument
.MailMerge.Execute Pause:=False
End With
End Sub
Private Sub oApp_MailMergeAfterMerge(ByVal Doc As Word.Document, ByVal DocResult As Word.Document)

'When the mail merge is complete, 1) make Word visible,
'2) close the mail merge document leaving only the resulting document
'open and 3) display a message.
Doc.Close False
oApp.Visible = True
MsgBox "Datos añadidos al documento: " & oApp.ActiveDocument.Name

End Sub