ＶＢをはじめたばかりの初心者です。
逆引きＨＥＬＰの「Excelファイルをテキストボックスに表示」を参考にさせていただいて、
エクセルファイルをリストに表示するプログラムを作りたいのですが、
Set DB = OpenDatabase(xlFileName, False, False, "Excel 8.0;HDR=NO;")の部分で
エラー：ファイルを作成できませんでした。となってしまいます。
考えられるエラーの理由を教えていただけませんでしょうか？

> Set DB = OpenDatabase(xlFileName, False, False, "Excel 8.0;HDR=NO;")の部分で
> エラー：ファイルを作成できませんでした。となってしまいます。

その前の　xlFileName = App.Path & "\Sample.xls"　ファイルのパスの指定を間違って
いませんか？

xlFileName ="c:\Sample.xls" 等のように使用するExcel用のファイルのパスをフルパスで
指定して見て下さい。

その前の部分は　
xlFileName = "D:\フォルダ名\A-4.xls"
xlSheetName = "list"& "$"

のように表示しています。場所も間違ってませんし、ファイル名も間違っていません。
他の部分はほとんど変えていないのでやはり、ここが間違っているのでしょうか・・・？

下記は　「フォルダ名」と言うフォルダ名なのですか？

>  xlFileName = "D:\フォルダ名\A-4.xls"

こう言う場合には省略や手打ちでは無くてソースそのものを
コピーアンドペーストする方が良いですよ。
手打ちでは気の様な投稿時のミスも発生します。

>  xlSheetName = "list"& "$"

xlSheetName = "list" & "$"
                    ~       ここに空白ですね。単に記入ミス？

色々試して見たのですが、そのようなエラーが発生しないのですが、正確なエラーはどのように
表示しているのでしょうか？
又、Excelファイルを変更しても同じでしょうか？
参照設定は、何と何に入っているのでしょうか？
使用しているコードも投稿して頂けませんか？


# ★ - Excelのプレビュー - ひろ 01/22-19:43 No.7604 New と同じ方でしょうか？
違う方なら 貴方が後になりますので、お名前を変更して下さい。

すみません・・ひろあらため、おかです。
nobuさんのご指摘のようにファイル名のちょっとした間違いでした。
全角半角が違っていただけでした。これからはファイル名をコピーペーストするようにします。
勉強になりました。色々お騒がせしてしまってすみませんでした。ｍ（＿　＿）ｍ