Problemer med OpenDataSource

Hej jeg har lavet en funktion, hvis job skulle være at åbne et worddokument og brevflette dette.
Brevfletningen fungerer upåklageligt første gang jeg trykker på knappen og kalder funktionen, men hvis jeg trykke igen, så åbnes min 'skabelon' (.doc, da jeg ikke kunne få det til at virke med .dot), men i access får jeg fejlen:
Run-time error '462': The remote server machine does not exist or is unavaible
Hvis jeg går ind i debug, så er koden der starter med 'ActiveDocument.MailMerge.OpenDataSource...' markeret.
Jeg har fundet lidt om fejlmeldingen hos microsoft, men har ikke kunnet forstå eller få løsningen til at fungere.
For mig lyder det til at en eller anden DataSource stadig er åben og derfor ikke er tilgængelig - skal denne lukkes eller hvad er løsningen?

Min funktions kode er som følger og bygger bl.a. på en makrooptagelse i word:
Public Function studentplan_mailmerge(mydoc As String) As Boolean
    Dim myword As Word.Application
    Set myword = New Word.Application
    myword.Documents.Open filename:=CurrentProject.Path & "\" & mydoc
    myword.Visible = True
    myword.Activate
    ActiveDocument.MailMerge.OpenDataSource name:=CurrentDb.name, _
        ConfirmConversions:=False, ReadOnly:=False, _
        LinkToSource:=True, _
        AddToRecentFiles:=False, _
        PasswordDocument:="", _
        PasswordTemplate:="", _
        WritePasswordDocument:="", _
        WritePasswordTemplate:="", _
        Revert:=False, _
        Format:=wdOpenFormatAuto, _
        Connection:="Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=CurrentDb.Name;Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Je", _
        SQLStatement:="SELECT * FROM `student_plan`", _
        SQLStatement1:="", _
        SubType:=wdMergeSubTypeAccess
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=False
    End With
   
    Windows(mydoc).Activate
    ActiveWindow.Close
    Set myword = Nothing
   
    studentplan_mailmerge = True
End Function