[求助]数据库的显示老是不成功

在运以下代码时 明数据库里面有数据却只显示“暂无数据”
请高手帮助分析一下吧
<%

dim conn,connstr
db="data.mdb"
on error resume next

connstr="DBQ="+server.MapPath(""&db&"")+";defaultdir=;driver={microsoft access driver (*.mdb)};"
set conn=server.CreateObject(adodb.connection)

if err then
err.clear
else
conn.open connstr
end if

set sql="select * from data order by ID desc"
set rs=conn.execute(sql)
if rs.eof then
response.Write"暂无数据"
else
do while not rs.eof
response.Write"&nbsp;"&rs("file")&""
rs.movenext
loop
end if
%>