在执行一个sql查询后为什么就没有响应了？任务管理器中却是"正在运行"。怎么解决？？

Question

程序中要执行一个复杂的sql查询，并且代码不会有任何问题
但当继续执行几个复杂的sql查询后，都会成功，但程序的画面就响应不了，在任务管理器中显示为 "正在运行" 。晕了，怎么办？？如：
DoEvents
conn.excute my_sql1
conn.excute my_sql2
conn.excute my_sql3
into_logo
exit function 急得很啊，在线等待！！！

Answer 1

这个我有啊
        conn.Close
        Set conn = Nothing

Answer 2

to  chenyu5188(来自东方的狼):
这些sql会经常变换不同的条件，不好用存储过程。我查过，没循环都已经退出。并将执行的时候的信息都写到一个 logo.dat文件，并且都是正确的。就是在它执行完后，就一直没有响应了！！
之前我没有加 DoEvents 后来在执行每一个 sql后 我就加了一个 DoEvents 但还是呆在那里走不到了啊！！！