something like this should work - or at least give yousome ideas..

for each sh in thisworkbook.worksheet
for each qt in sh.querytable
msgbox qt.connectio
qt.connection = "Your new connection string
nex
next