いつもお世話になっています。
　花ちゃんのコードは大変役に立っております。ありがとうございます。
　早速ですが、”ＡＤＯを使ってCSVファイルを読む”を参考にしたくトライして
　みたのですが、エラーが発生してしまいます。(オブジェクト変数又はブロック
　変数が設定されてません）
　大変恐縮ですがヒントでも頂ければ幸いです。よろしくお願いします。
　　Dim CN As New ADODB.Connection, RS　 As New ADODB.Recordset
　　Dim FolderName　As String, txtDRIVER As String
　　Dim DataFile　　As String, strSQL　　As String
　　Dim strProvider As String
　　Screen.MousePointer = vbHourglass
　　MSHFlexGrid1.Clear
　　DoEvents
　　FolderName = App.Path　　　 'データのあるフォルダを取得
　　DataFile = "Test.csv"　　　 'データファイル名を取得
　　'データベースに接続するための情報を設定する
　　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 MSHFlexGrid1.DataSource = RS　　'MSHFlexGridにデータを代入

私の環境ではエラーが発生しません。
詳しい環境や参照設定を何にしている等教えて下さい。
又、コードはここのをそのままペーストされたのでしょうか？、どこか変更されたのでしょうか？

エラーが発生している場所や発生する状況・正確なエラーメッセージも教えて下さい。

> 私の環境ではエラーが発生しません。
> 詳しい環境や参照設定を何にしている等教えて下さい。
> 又、コードはここのをそのままペーストされたのでしょうか？、どこか変更されたのでしょうか？
>
> エラーが発生している場所や発生する状況・正確なエラーメッセージも教えて下さい。
早速のご返答ありがとうございました。
エラーの内容ですが、「オブジェクト変数又はブロック変数が設定されてません」というものでした。SET MSHFlexGrid1.DataSource=RS のところでのエラーでしたが、フォームに貼り付けたコントロールは
MSFlexGridでした。単純なミスでした。MSHFlexGrid1ではうまく表示されました。どうもすみませんでし
た。これからもよろしくお願いします。