在线等。。。关于ADODB.Recordset 错误 '800a0e7d'

ADODB.Recordset 错误 '800a0e7d' 

连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。 

/index.asp，行 142 
=========================================================
i=0
sql ="select top 4 * from TaskList where Zhuangtai=0 and TaskClassID = 1 order by ID desc"  
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
i = i+1
title = rs("TaskName")
==========================================================
问题错在哪里了 求指教

rs.movenext
适当的地方加上

哪有关闭连接的语句！贴全代码