DB検索の結果を項目ごとに別シートにしたい

質問

識者の方々教えてください。
Excel VBAで、DBに接続し、クエリの結果ごとに別シートにしたいと思っています。

<DBサンプル>
店舗,商品,個数
A店,商品1,10
A店,商品2,10
B店,商品1,10
B店,商品1,10
・・・
<表示したい内容>
Sheet1には、A店のレコードのみを表示させたい。
Sheet2には、B店・・・と、
店舗数は全部で15店舗ぐらいあります。

店舗数ぶんクエリをかけるしかないのでしょうか？
もっとシンプルにできると思うのですが、知識不足で、
そのようなノウハウを教えていただけたらと思います。

回答No.1

noname#22222

データベース言語を示された方が宜しいかと...

補足

DBは、AS/400を使用しており、
iSeries Access for Windowsを使用しています。
ADO接続です。