难道高手的简单问题

这问题真奇怪了，越简单越难搞，究竟哪里有问题?
我把它简化到这样，还出错！
sql="SELECT sum(case when stype='PI' then qty else 0 end) as 入库量 FROM stock"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1

错误提示：
Microsoft OLE DB Provider for Visual FoxPro 错误 '80040e14'
Function name is missing ).