请教 这段代码错在什么地方？

如题：
<%
dim sql
dim i,outstr
  Set RS=Server.CreateObject("ADODB.RecordSet")
  sql="select a.orderusername,b.UserFace,sum(a.OrderCount) as (a.OrderCount) from User as B left join order1 as A on a.orderusername = b.UserName group by a.orderusername,b.UserFace ORDER BY a.orderusername DESC"
  RS.Open sql,conn,3,2

  for i=1 to 4
  if i<=RS.RecordCount then
  outstr=outstr & "<TD><TABLE><TR><TD><img src="& RS("b.UserFace") &" width=60 height=60 border=0></TD></TR><TR><TD>"& RS("a.orderusername") &"</TD></TR><TR><TD>领 "& RS("a.OrderCount") &" 件</TD></TR></TABLE></TD>"
  RS.MoveNext
  else
  outstr=outstr & "<TD></TD><TD></TD><TD></TD>"
  end if 
  next
  Response.Write(outstr)
%>

User可能是保留字吧。
加上[]
[User]

select a.orderusername,b.UserFace,sum(a.OrderCount) as (a.OrderCount) from User as B left join order1 as A on a.orderusername = b.UserName group by a.orderusername,b.UserFace ORDER BY a.orderusername DESC

感觉这里不对头

[User]写成这样也不行，提示错误的地方是RS.Open sql,conn,3,2这一行。

挺明显是SQL语句有错
这句前
response.write(sql)
然后去查询分析器里看看会否报错

不好意思，这是用的ACCESS

<%
Response.Expires=0
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("bbs/database/WoDig2007.mdb") & ";Mode=ReadWrite|Share Deny None;Persist Security Info=False"
%>
<TABLE><TR>

<%
Response.Expires=0
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("bbs/database/WoDig2007.mdb") & ";Mode=ReadWrite|Share Deny None;Persist Security Info=False"
%>
<TABLE><TR>


<%
dim sql
dim i,outstr
  Set RS=Server.CreateObject("ADODB.RecordSet")
  sql="select a.orderusername,b.UserFace,sum(a.OrderCount) as a.OrderCount from [User] as b left join [order1] as a on a.orderusername = b.UserName group by a.orderusername,b.UserFace ORDER BY a.orderusername DESC"
  RS.Open sql,conn,3,2

  for i=1 to 4
  if i<=RS.RecordCount then
  outstr=outstr & "<TD><TABLE><TR><TD><img src="& RS("b.UserFace") &" width=60 height=60 border=0></TD></TR><TR><TD>"& RS("a.orderusername") &"</TD></TR><TR><TD>领 "& RS("a.OrderCount") &" 件</TD></TR></TABLE></TD>"
  RS.MoveNext
  else
  outstr=outstr & "<TD></TD><TD></TD><TD></TD>"
  end if 
  next
  Response.Write(outstr)
%>

ACCESS也能输出SQL看看。。

写成7楼这样也不行，急