怎样读取工作表里面数据

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
constring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & ThisWorkbook.Path & "\统计表 (2012年5月).xls;Extended Properties='Excel 8.0;HDR=Yes'"

conn.ConnectionString = constring

Sql = "select * from Sheet1"

conn.Open

rs.Open Sql, conn, 1, 3

提示:数据库引擎找不到对象'Sheet1'  请问怎样可以读取另一个工作表里面的sheet1????? --------------------编程问答-------------------- Sql = "select * from Sheet1$"
--------------------编程问答--------------------

引用 1 楼  的回复:

Sql = "select * from Sheet1$"

还是不行,from 子句语法错误 --------------------编程问答--------------------

补充：VB ,  数据库(包含打印，安装，报表)