興味があったので探してみました。

http://groups.google.co.jp/groups?q=ADO+CSV+VB&hl=ja&lr=lang_ja|lang_en&ie=UTF-8&oe=UTF-8&selm=i5i2sugf99pjt6jpgkd3896ergn8f748jo%404ax.com&rnum=2

によると、
　　RS.Open "Select * from Test#csv"
とすればＯＫのようです。
そこに記述されていた Microsoft のリンク先が
見つからなかったので、理由は分かりません。(^^;

レスが無かったし、他の方法で出来る事が解ったので投稿を削除した時に
回答を頂いたようですね。それでリンクが切れていました。

どうもありがとうございました。

私もADOは今回初めてなので間違っているかも知れませんが
前回DAOで読込していた部分をADOに変更した物を投稿しておきます。

Private Sub Command1_Click()
    Dim CN         As New ADODB.Connection
    Dim RS         As New ADODB.Recordset
    Dim FolderName As String
    Dim txtDRIVER  As String
    Dim DataFile   As String
    
    MSHFlexGrid1.Clear
    'データのあるフォルダを取得
    FolderName = App.Path
    'データファイル名を取得
    DataFile = "Test.csv"
    'データベースとの接続設定
    txtDRIVER = "DRIVER={Microsoft Text Driver (*.txt; *.csv)};DBQ="
    CN.ConnectionString = "Provider=MSDASQL.1;Extended Properties=""" & _
                                    txtDRIVER & FolderName & """"
    'コネクションをオープン
    CN.Open
    'CursorTypeの設定(デフォルトは０でレコードの前方スクロールだけが可能)
    RS.CursorType = adOpenStatic
    'Recordsetオブジェクトのオープン
    RS.Open "Select * From " & DataFile, CN
    'MSHFlexGridにデータを代入
    Set MSHFlexGrid1.DataSource = RS
    'Recordset・Connection を閉じる
    RS.Close
    CN.Close
    '参照を解放。
    Set RS = Nothing
    Set CN = Nothing
'=====================================================================
    FolderName = App.Path
    DataFile = "Test1.csv"
    txtDRIVER = "DRIVER={Microsoft Text Driver (*.txt; *.csv)};DBQ="
    CN.ConnectionString = "Provider=MSDASQL.1;Extended Properties=""" & _
                                    txtDRIVER & FolderName & """"
    CN.Open
    RS.CursorType = adOpenStatic
    RS.Open "Select * From " & DataFile, CN
    Set MSHFlexGrid2.DataSource = RS
    RS.Close
    CN.Close
    Set RS = Nothing
    Set CN = Nothing
End Sub

尚、ファイルの読込時の設定は SCHEMA.INI ファイルでしました。