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

お世話になります。

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}

                           }

                       }

}