撰寫vba用QueryTables連接外部資料庫,在excel檔案不關閉的情況下如何終止資料庫連接

Selection.Delete Shift:=xlUp
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=Progress SQL-92.1C;HOST=165.159.254.205;PORT=25084;DB=mfg;UID='';pwd=''" _
, Destination:=Range("A1"))
.CommandText = Array(m_sql)
.Name = "來自 Progress SQL-92 的查詢"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With