VBA - ændre ODBC forbindelse til pivottabel

Hej
Jeg prøver via VBA at ændre ODBC-forbindelsen til en pivottabel.
Det er lige ud af landevejen og lykkedes også, MEN pivot tabellen laver hele tiden en ny forbindelse.
Min forbindelse hedder "timer" og hver gang jeg kører koden ændres forbindelsen "timer" ganske som ønsket, men pivottabellen connecter til en ny forbindelse "timer1" ???????

HVORDAN får jeg pivottabellen til at beholde den oprindelige forbindelse:

Sub opdater_timer()

    Dim d1 As Date
    Dim d2 As Date
    Dim strSQL As String
   

    If IsDate(Range("d1")) And IsDate(Range("d2")) Then
        d1 = Range("d1")
        d2 = Range("d2")
        strD1 = Format(d1, "yyyy-mm-dd")
        strD2 = Format(d2, "yyyy-mm-dd")
   
        strSQL = "SELECT * FROM vw_Timer WHERE " & _
                "Dato >= '" & strD1 & "' AND Dato <='" & strD2 & "'"
               
        With ActiveWorkbook.Connections("Timer").ODBCConnection
            .Connection = getConn
            .CommandText = strSQL
            .CommandType = xlCmdSql
            .SavePassword = True
            .Refresh
        End With
    End If

   
End Sub

'getConn returnere ODBC connection til en MySQL database:

Function getConn() As String
strConnection = "ODBC;DRIVER=" & DSN & _
            ";SERVER=" & DatabaseServer & _
            ";DATABASE=" & DatabaseName & _
            ";UID=" & DatabaseUsername & _
            ";PWD=" & DatabasePassword & _
            ";PORT=3306;"
           
getConn = strConnection

End Function