Как макросом удалить Подключения

[Loshara]

Уважаемые знатоки.
При подключении к внешним данным макросом (больше 16) у меня каждый раз создается новое подключения - клон предыдущего подключения.
Вопросов два:
Первый что сделать чтобы не создавался новый клон подключения (для офиса XP я разобрался там все очень просто при запуске таблицы отказаться от создания нового подключения, но в 2007 ... 2010 такого запроса нет)
Второй После обработки информации (создания нового подключения) возникает необходимость разорвать существующее подключение удалив их. Включив макрорекодер я получил строчки.

    ActiveWorkbook.Connections("P_1_Pr0").Delete
    ActiveWorkbook.Connections("P_1_Pr01").Delete
    ActiveWorkbook.Connections("P_1_Pr010").Delete
    ActiveWorkbook.Connections("P_1_Pr011").Delete
    ActiveWorkbook.Connections("P_1_Pr012").Delete
    ActiveWorkbook.Connections("P_1_Pr013").Delete
    ActiveWorkbook.Connections("P_1_Pr014").Delete
    ActiveWorkbook.Connections("P_1_Pr02").Delete
    ...
    ActiveWorkbook.Connections("P_1_T065").Delete
    ActiveWorkbook.Connections("P_1_T07").Delete
    ActiveWorkbook.Connections("P_1_T08").Delete
    ActiveWorkbook.Connections("P_1_T09").Delete

Собственно вопрос как изменить программу чтобы удалять все эти подключения учитывая что при новом запуске программы создается клон подключения.
P.S.
На всякий случай строка подключения выглядит следующим образом.

 
   With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;\\172.18.13.112\Archiv\Pech1_pr\P_1_Pr0.csv", Destination:=Range("$A$1" _
        ))
        .Name = "P_1_Pr0"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertEntireRows
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1251
        .TextFileStartRow = 2
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

Попытки подключения используя ADDODB закончились неудачей

[Казанский]

Перед End With добавьте .Delete

[Loshara]

Сообщение от Казанский

Перед End With добавьте .Delete

Спасибо действительно все очень просто

[IgorGO]

все просто - если знать что делать
и часы, дни... поисков когда не знаешь, а иногда еще поиски без результата