cancel query refresh - vb

[paddy]

I have a macro that automatically opens a spreadsheet and
runs a background query, then on completion of the query,
the macro closes the spreadsheet and excel application.

I want to know how to cancel the refreshing of the query
if the query hangs or after a specified time - say 30
secs.

Any help gratefully accepted.

Regards
Paddy