automation

i wil make wish automation a link to words. That i can But i want to make't so that my vb6.0 prog can put informatie to this words doc. every time i want that so long my vb prog is working.

i cant make that, ervery time i get a error. i cant find the link too my words document.
--------------------------------------------------------------------------------




Dim x As Object
Set x = CreateObject("word.applicatie8")
If cmddiensten.Caption = "diensten invoeren" Then
x.Documents.add Template:="D:\Program Files\Microsoft Office\Sjablonen\daglijstic.dot"
If Text2.Text = "A" Then
x.ActiveDocument.Bookmarks("A1").Select
x.Selection.InsertAfter Text:=List1.Text + ", "
End If