ADOを使ってCSVファイルを読み込むサンプルを改造しまして
グリッドでなくデザイナの中の仕入先マスタにおとしこみたいのですが
Microsoft ODBC TextDriver FROM句の構文エラーです　となってしまいます
どこがおかしいのですか？

　　CommonDialog1.ShowOpen
  
    DataFile = CommonDialog1.FileName
    
    'データベースに接続するための情報を設定する
    strProvider = "Provider=MSDASQL;Extended Properties="""
    txtDRIVER = "DRIVER={Microsoft Text Driver (*.txt; *.csv)};DBQ="
    CN.ConnectionString = strProvider & txtDRIVER & FolderName & """"

    CN.Open     'コネクションをオープン

    'Recordsetオブジェクトのオープン
    strSQL = "Select * From " & DataFile
    RS.Open strSQL, CN, adOpenStatic, adLockReadOnly, adCmdText　'ここでエラー
    Set Buturyu.rs仕入先マスタ.DataSource = RS

>     CN.ConnectionString = strProvider & txtDRIVER & FolderName & """"

このFolderNameはどのようになっているのでしょうか？

> >     CN.ConnectionString = strProvider & txtDRIVER & FolderName & """"
>
> このFolderNameはどのようになっているのでしょうか？

記述もれでした。サンプルと同じように修正しましたが同じMicrosoft ODBC TextDriver FROM句の構文エラーです　となってしまいます

'データのあるフォルダを取得
FolderName = App.Path

>DataFile = CommonDialog1.FileName

これも、フルパスになっていませんか？
一度直接ファイル名だけを指定してみて下さい。

> >DataFile = CommonDialog1.FileName
>
> これも、フルパスになっていませんか？
> 一度直接ファイル名だけを指定してみて下さい。
DataFile = "A送付先マスタ一覧.csv" にしたらエラーはなくなりましたが
CSVファイルが読み込まれませんでした。
また、DataFile = CommonDialog1.FileNameこの型では無理なんでしょうか？

一度サンプルと同じ状態で試して見て下さい。MSHFlexGrid1に表示
それでうまくいったら順次改造するようにして見て下さい。
そうすれば、おのずとどこが悪かったのかが解るかと思います。
因みにCSVファイルはプログラムと同じフォルダーにありますよね。

こんちは
横から失礼します。

>また、DataFile = CommonDialog1.FileNameこの型では無理なんでしょうか？
と言う前に、SQL文をDebugウィンドウで確認しましたか？
例えば「Test.csv」ファイルの場合、テーブル指定は以下のようにします。
    strSQL =  "SELECT * FROM [Test#csv] WHERE fieldname = 'hoge'"

ありがとうございました。
いりいろ試してやってみたいと思います。