vb6 非正常关闭 进程问题

Set Rs = Conn.Execute("Select top 50000 * From tbTemp")
Do Until Rs.EOF
  Text1.Text = Rs("id")
  DoEvents
  Rs.MoveNext
Loop

如上程序，我在运行时Text正常显示当前的id，如果Do没执行完，当我点关闭时，窗口关闭，但是资源管理器中还存在该进程；如果Do循环完，当点击关闭时才正常结束，请问，如何在Do没执行完的情况下，当我点击关闭时，可以正常的关闭？

关闭是窗口左上角的X，或End代码。

循环没完成，进程还在运行中
1、在声明部分添加变量f作结束标志
Dim f As Boolean

2、Do Until Rs.EOF修改为
Do Until Rs.EOF Or f

3、Form_Unload中添加
f=True