大家来看看这哪里出错呢？？？？？？？

1   
2connString="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&server.MapPath("data.mdb")   
3Set conna = Server.CreateObject("ADODB.Connection")   
4conna.Open connString   
5Set rs = Server.CreateObject("ADODB.Recordset")   
6select count(*) as mycount from user   
7response.write rs("mycount")

我的这段代码主要功能是统计并显示数据库中的user表的记录数量，但是不行，出错
请大家帮忙修改一下吧。出错信息如下：
错误类型：
Microsoft VBScript 编译器错误 (0x800A03FD)
缺少 'Case'
/bai/heart/qiao/counter.asp, line 6, column 7
select count(*) as mycount from user
------^

---------------------------------------------------------------

1   
2connString="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&server.MapPath("data.mdb")   
3Set conna = Server.CreateObject("ADODB.Connection")   
4conna.Open connString   
5Set rs = Server.CreateObject("ADODB.Recordset")   
6sql="select count(*) as mycount from user"   
7rs.open sql ,conna,1,3   
8response.write rs("mycount")