Application_onstart的问题

比较奇怪的是启动初始只能获取第一个表（GetRows）的信息，第二个表（GetRows）的信息无法获取。高手指点一下是怎么回事？代码如下：
Sub Application_OnStart
dim conn, rs, dbpath
dbpath="faqonline/images/#book8f5e4g3cg4hr6f.mdb" '数据库路径

On Error Resume Next
If Err Then Err.Clear
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(dbpath)
If Err Then
  Err.Clear
  Set conn=Nothing
  Response.Write "<center><font color=red>抱歉，数据库连接出错，请检查连接文件。</font></center>"
  Response.End
End If

set rs = server.CreateObject("ADODB.RecordSet")
rs.open "select id,title,time from news order by time DESC",conn,3,3
Application("NewsList")=rs.GetRows()
Application("NewsCount")=rs.RecordCount
rs.close
set rs = nothing

set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select id,title,subject,time from work_by_teacher order by time DESC",conn,3,3
Application("WorkList")=rs.GetRows()
Application("WorkCount")=rs.RecordCount
rs.close
set rs = nothing

conn.close
set conn = nothing
End Sub