VB代码错误—无效的 'exit' 语句

Microsoft VBScript 编译器错误 '800a040f'
无效的 'exit' 语句
\admin\Calendar.asp, line 77

line 77 是“if rs.eof then exit do”（第二个）

代码如下：

<!--#include file="conn.asp"-->
<%
id=request.querystring("id")
Sql="select * from table where id="&id
rs.open Sql,conn,1,1
if rs.eof then response.end
%>
.........'代码若干
<% i=1
do while i<=4
%>
.........'代码若干
<%
i=i+1
rs.movenext
if rs.eof then exit do
loop
%>
.........'代码若干
<%
if rs.eof then exit do
loop
rs.close
%>

请大虾指点。
感谢zxlxxl和iqcard两位朋友的回答，iqcard的我想到了，改成那样后又出来了个问题，提示：“语法错误 (操作符丢失) 在查询表达式 'id=' 中。 line 37”（line 37 为：Sql="select * from table where id="&id ）
我把这句改为：Sql="select * from table"
之后倒是没有错误提示了。但是原本我是想要查询并输出数据

VB代码“实时错误：'91' VB代码错误 寻找vb代码错误 VB 编译错误 无效或不合格的引用 vb中 实时错误 对象名无效 VB代码错误,亟待解决 无效的客户代码 有一段vb代码,请大家指出它的错误 在vb中的datareport的代码中引用控件无效，为什么？ 帮忙找VB代码中的错误&&&实时错误 '3709'