はじめて書き込みします。よろしくお願いします。

以下の処理に関してお尋ねしたいことがあります。
データウィンドウをプログラム上でWhere句を変えながらループで廻し、
その際、１回ループする途中でEXCELのシートに出力する処理ですが、
１回目と次のEXCELシートは別で、つまり、シートを新規で追加しながら
ループしてデータウィンドウのデータを出力していきます。
EXCELのBookは１つです。

シートを追加するのは
 ole_1.object.application.WorkSheets.add
(ole_1はウィンドウ上にコントロールとして設定。Createでプログラム上で作ってません)
とやると増えるのですが、DWのデータをその増えたシートに載せるところがわかりません。

どなたか教えてください。お願いします。