ADODB RecordSetのフィールド値参照

    Dim objCnn               'ADODB Connection
    Dim objRS                'ADODB ResultSet

    Dim strDrv                'ドライバ指定
    Dim strDBQ               'CSVファイルのフォルダ指定
    Dim strROOption        'モード設定(1:ReadOnly 0:Read/Write)
    Dim strQuerySelect    '絞り込み用SQLステートメント

    strDrv = "Driver={Microsoft Text Driver (*.txt; *.csv)};"
    strDBQ = "DBQ=" & "FilePath" & ";"
    strROOption = "ReadOnly=1"
    strQuerySelect = "select * from " & "FilePath"

    set objCnn = CreateObject( "ADODB.Connection" )
    objCnn.Open strDrv & strDBQ & strROOption
    set objRS = objCnn.Execute( strQuerySelect )

    Do until objRS.EOF
        '結果から特定のフィールド値を取得
        Val =objRS.Fields.Item( "FieldName" )
     

        /値処理


        objRS.MoveNext
    Loop


参照URL:
http://msdn.microsoft.com/ja-jp/library/cc426712