excelファイルをVBで取り込む

質問

下記のようなプログラムで、excelから表を取り込むのですが、シート名を指定しても、オブジェクトが見つかりませんとエラーが出ます。visualbasicの極意500から抜粋して使用しようとしました。わかる肩よろしくお願いいたします。
Private Sub Command1_Click()
Dim DB As Database
Dim strConnect As String
Dim rst As Recordset

strConnect = "Excel 8.0;DATABASE=C:\temp\売上実績.xls"
Set DB = OpenDatabase("C:\temp\売上実績.xls", False, False, strConnect)
'テーブル名を指定
Set rst = DB.OpenRecordset("売上$", dbOpenTable)
Do While Not rst.EOF
Debug.Print rst!売上高
rst.MoveNext
Loop
rst.Close
DB.Close
Set DB = Nothing
Set rst = Nothing
End Sub

回答No.1

1050 円（@1050YEN）

>Set DB = OpenDatabase("C:\temp\売上実績.xls", False, False, strConnect)
Set DB = OpenDatabase("C:\temp\売上実績.xls", False, False, "Excel 8.0;")
にしてみては？

http://ayusya.hp.infoseek.co.jp/ProgramVBExcel.html