Excel VBA ユーザーフォームのリストボックスにRecordSetの値を入れた際のラベル行

以下のようなExcelシートがあります。 1行目はラベル行です。 [製品管理表] 1| 管理番号| 製品名 | 在庫数 | 2| A001 | 製品Ａ | 2000 | 3| A002 | Ｂ製品 | 1700 | 4| A002 | Ｂ製品 | 1700 | ......以下1000行くらい続く この中から製品名で検索をかけて、検索結果をユーザーフォームの リストボックスに一覧表示させたいのですが、 現在の方法は、 検索条件を元にSQL文を生成、 ADOでシートをRecordSetに格納し、 RecordSetを2次元配列に格納、 2次元配列をリストボックスの要素にする。 ソースは以下の通りです。 ========================================================== Sub Test() Dim CN As New ADODB.Connec