QueryDefsのSQLプロパティをinstringで調べる
それをループ かな