请教高手读取excel到access为什么只能读两条？

excel表数据如下（文件名yun.xls)：
A B (这行必需是留空做为字做为是正确的)
第一行 第一行
第二行 第二行
第三行 第三行
第四行 第五行
.......
网页完整代码如下：
<%
dim conn
dim conn2
set conn=CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source="&server.mappath("access.mdb")
Set conn2 = server.CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source="&server.mappath("yun.xls")
sql="select * FROM [Sheet1$]"
Set rs=CreateObject("adodb.recordset")
rs.open sql,conn2,1,1
If rs.eof Then
else
i=1
response.write "<TABLE border=1>"
Do While not rs.eof
goods_name=rs("A")
goods_images=rs("B")
%>
<TR>
<TD>&nbsp;<%=goods_name%></TD>
<TD>&nbsp;<%=goods_images%></TD>
</TR>
<%
sql="insert into page([title],[mg]) values('"&goods_name&"','"&goods_images&"')"
conn.execute(sql)
i=i+1
rs.MoveNext
Loop
response.write "</table>"
End If
rs.close
Response.write "共导入<font color='red'>" & i-1 & "</font>条记录.<br>" & vbCrLf
set conn2=nothing
set conn=Nothing
%>
运行后查看access.mdb如下：
第一行 第一行
第二行 第二行
却不能继续读完整个execl表，只读了前两行数据，每运行一次都是读前两行数据，为什么呢，代码是哪个地方写错了？特请教各位大师，指点一二。