ActiveXを使用してレコードセットを取得する

[naohiro0104]

お世話になります。

SJIS形式のCSVファイルの取り込みにActivexの使用を考えています。
以下の様に記述してレコードセットにまで取り込めているようですが取り出し方が分かりません
ご教示をお願いします

Code:

|| ADOのオープン
{let cn:ActiveXObject = {ActiveXObject ClsId = |"{00000514-0000-0010-8000-00AA006D2EA4}"|}}

{let cmd:CommandButton={CommandButton
                           label="push",
                           {on Action do
                               {let cnstr:String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\;Extended Properties='Text;HDR=NO';" } || SQLServerの場合
                               {cn.Open cnstr}
                               {let sql:String = "SELECT * from test.csv where F3=3 ;"}
||レコードセット取り込み
                               {let rs:ActiveXObject = {cn.Execute sql}}
                               
                               || データ格納
                               {while {rs.EOF} == false do
||  ４列目のレコードセット出力
                                   {popup-message {rs[3].Value}}

                                   {rs.MoveNext}
                               }
                               {rs.Close}
                               {cn.Close}
                               {rs.destroy-object}
                               {cn.destroy-object}
                               
                           }
                           
                       }
}