为什么这样查不出数据来呀?????????
<%
dim   db
'const   DatabaseType= "ACCESS "          
db= "data/data.mdb "                      
                  On   Error   Resume   Next
dim   ConnStr
dim   conn
ConnStr   =   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source= "   &   Server.MapPath(db)
Set   conn   =   Server.CreateObject( "ADODB.Connection ")
conn.Open   connstr
If   Err   Then
err.Clear
Set   Conn   =   Nothing
Response.Write   "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。 "
Response.End
End   If
sub   CloseConn()
On   Error   Resume   Next
If   IsObject(Conn)   Then
conn.close
set   conn=nothing
end   if
end   sub
%>
<%
set   rs=server.CreateObject( "adodb.recordset ")
rs.open   "select   *   FROM   inform     order   by   newsid   desc ",conn,1,1
%>
语句同上
rs没有返回结果
但把在数据库中运行 "select   *   FROM   inform     order   by   newsid   desc "有结果
为什么呀???????????????????????????

------解决方案--------------------
把On Error Resume Next注释掉，看看有没有其他错误信息。