VBA レコード取得結果とリストボックス結果を同じ変数にセットしたい

Question

FROM画面より、リストボックスで選択された「項目A」の値ごとに
エクセルシートのシート名をつけて出力を考えております。

【１】リストボックスが選択された場合は、
FORM.項目A.ItemsSelected

【２】リストボックスが未選択の場合は、
ストアドで、この項目のマスタテーブルから全ての「項目A」を取得する
Dim rs As New ADODB.Recordset
rs.項目A　　・・・ストアドからの取得結果

リストボックスで選択した値か
ストアドから取得したレコードからの値で
ループを回したいのですが、
【１】【２】で同じ型の変数にセットして
どのようにループをすればよいかご教授ください。

下記コードで選択と未選択で分けるとうまくいきますが、
ループ内の処理が共通しているため
変数セットでなんとか回避したいと考えております。

For Each iLevel In FORM.項目A.ItemsSelected
　　　Set oXlsSheet = oXlsBook.Worksheets.Add(Before:=oXlsBook.Worksheets("Sheet1"))
　　　oXlsSheet.name = FORM.項目A.ItemsSelected

    Do Until rs.EOF
        Set oXlsSheet = oXlsBook.Worksheets.Add(Before:=oXlsBook.Worksheets("Sheet1"))
        oXlsSheet.name = rs!項目A

Answer 1

受付期間が長すぎましたので、完了します。