以下代码在access正常运行,但在sql的时候就出错,

dim gi
dim errmsg
gi=0
errmsg=""
gsql="select * from t where www1='3' order by id desc"
Set grs=Server.CreateObject("Adodb.Recordset")
grs.open gsql,conn,1,3
do while not grs.eof
gi=gi+1
aaa=grs("wb_name")
if gi<30 then
errmsg=errmsg&"消息：删除标题&nbsp;["&gi&"]&nbsp;为<font color=red>"&aaa&"的公告</font><br>"
end if
grs.delete '出错在这里,但说明好像是支持delete的阿
grs.movenext
loop
grs.close
set grs=nothing
response.write errmsg&"<br>"&gi