Removing connections

Hi All,

I am writing a macro that collects data from many different http addresses on our intranet. This however leaves me with a lot of connections, that slows excel after a while. How can I delete these connections ? I create the connection as shown below.

With ActiveSheet.QueryTables.Add(Connection:= _
            "URL;http://pdm:8080/lm/Forms/matdb/laminate?laminate=" & TempCertificate, Destination:= _
            Range("$A$2"))
            .Name = "Connection"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .WebSelectionType = xlEntirePage
            .WebFormatting = xlWebFormattingNone
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
        End With

I have tried "

ActiveWorkbook.Connections("Connection").Delete

" with no effect.