Использование библиотеки DAO

[ninestems]

При попытке обратиться SQL запросом к листу в книге excel выбрасывает эту ошибку. Ниже приведен код. Вместо sheetname перепробовал все найденные варианты.

Код: Выделить всё

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String


Set db = DAO.OpenDatabase("c:\test.mdb")
Set rs = db.OpenRecordset("SELECT * FROM sheetname")

Уже два стула сменил.
Заранее благодарю за помощь