nevermind , it was simple, here is the code that did the trick
Dim wb As Object = GetWorkbook(handle, workbookname)
dim conn as Object
for each conn in wb.Connections
conn.Delete
next conn
------------------------------
Luz Benitez
------------------------------
