Visual Basic 6 - Problema di doppia apertura di documento word

Ciao a tutti, ho un (credo piccolo) problema con un programma che sto facendo. Allora il programma deve prelevare da un db access i dati relativi di un socio e metterli in un documento word al posto di stringhe che ho messo io, e fin qui tutto bene, ora il problema sta nel fatto che mi apre due documenti word, e qui la mia domanda come faccio per farne aprire uno solo?
Posto il codice del apertura e della sostituzione dei dati:

Public Sub ApriDocumento()
Set appwd = CreateObject("Word.Application")
appwd.Visible = True
appwd.Documents.Open FileName:=App.Path & "\domanda.doc", ConfirmConversions:=False, ReadOnly _
        :=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
        :="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
        , Format:=wdOpenFormatAuto
appwd.ActiveDocument.SaveAs FileName:=App.Path & "\domanda.doc", FileFormat:=wdFormatDocument, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
        Set appwd = Nothing
End Sub

Public Sub AssociaModello()
Dim appwd As Object
Dim i As Integer
'On Error Resume Next
Call inizvet

Set appwd = CreateObject("Word.Application")

   
appwd.Visible = True
   
    appwd.Documents.Add Template:=App.Path & "\domanda.dot", NewTemplate:=False, DocumentType:=0
       
   
      
   appwd.Selection.Find.ClearFormatting
   appwd.Selection.Find.Replacement.ClearFormatting
   For i = 0 To 18
    With appwd.Selection.Find
        .Text = a(i)
        .Replacement.Text = Data3.Recordset.Fields(i).Value
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    appwd.Selection.Find.Execute Replace:=wdReplaceAll
    Next



' appwd.ActiveDocument.SaveAs FileName:=App.Path & "\domanda.doc", FileFormat _
'        :=wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
'       True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
'        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
'        SaveAsAOCELetter:=False



Set appwd = Nothing
End Sub

Risolto. Ne aprivo due.Scusate
Chiudete pure