新手请教读取数据问题

下面代码读取不到，请高手帮助，谢谢:

<% response.charset="utf-8" %>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("sxl/userMsg.mdb")
set rs=server.createobject("adodb.recordset")
rs.open "select * from Msg order by id desc",conn,1,1
do while not rs.eof
while not rs.eof
response.Write "#"
response.Write rs("userName")
response.Write "|"
response.Write rs("userMsg")
response.Write "|"
response.Write rs("userTime")
rs.movenext
loop
rs.close
set rs = nothing
set conn = nothing
%>