datareport分组报表问题

Question

一个表实现按某个字段分组做报表（用vb自带的datareport)。要求用代码实现。跳过数据环境设计器，用rs绑定数据源。或者帮忙分析下面几句代码。
  '查询表：   
   Sql   =   "SELECT   *   FROM   `tb`"   
   '这里注意tb（表名）不是用单引号括起来的，而是用Tab键上方的那个带~的键上的`括起来的   
            
  '分组并打开查询记录集   
 strSql= "SHAPE  {"   &   Sql   &  "  } AS miCmd  COMPUTE  miCmd   BY   '銷售單號'   "   
 Set   rs   =   New   ADODB.Recordset   
  rs.Open   strSql,   cn,   adOpenStatic,   adLockReadOnly   
  Set   Me.DataSource   =   rs 
编译时提示select语句无效。