Makro virker ikke længere...

Hej alle,

Jeg har tidligere lavet følgende makro, og denne har fungeret perfekt, lige indtil sidste uge, hvor den ikke længere virker. Kort fortalt, så har den sørget for at forbindelse til et Excel ark (brevfletning) altid er der, også selvom man skulle kopiere til en anden destination.

Kan I sige hvad der er gået galt?

Private Sub Document_Open()
Dim Aktuelsti As String, Saldodata As String
   
    Aktuelsti = ActiveDocument.Path

    Saldodata = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "User ID=Admin;" & _
            "Data Source=" & Aktuelsti & "\data.xls;" & _
            "Mode=Read;" & _
            "Extended Properties=""HDR=YES;IMEX=1;"";" & _
                "Jet OLEDB:System database="""";" & _
                "Jet OLEDB:Registry Path="""";" & _
                "Jet OLEDB:Database Passw"
   
    ActiveDocument.MailMerge.OpenDataSource _
        Name:=Aktuelsti & "\data.xls", _
        LinkToSource:=True, _
        Format:=wdOpenFormatAuto, _
        SQLStatement:="SELECT * FROM `Dansk$`", _
        SQLStatement1:="", _
        SubType:=wdMergeSubTypeAccess

   
End Sub