我程序代码如下：  
<%  
Dim  conn  
Dim  Drivers  
Dim  rs  
Dim  Sql  
Set  conn=Server.CreateObject("ADODB.Connection")   
Drivers="Driver={Microsoft  Excel  Driver  (*.xls)};"&  _  
"DriverId=790;"&  _  
"DBQ=e:\test\select\chengji.xls"  
conn.Open  Drivers  
Set  rs  =  Server.CreateObject("ADODB.Recordset")   
Sql="select  *  from  ["&三班&"$]"  
rs.Open  Sql,conn,2,2   

%>

SQL1="select  *  from  [三班$]"