如何释放数据库连接？

Question

ADO连接上去的
cmd.CommondText = "select ..."
rs.Open cmd, , ..., ...
第一次查询是正确的
但是第二次查询就出现错误了
是不是rs没有释放的原因？
如何解决？
谢谢

Answer 1

if rs.state =1 then rs.close
rs.open ..................

Answer 2

if rs.state<>adstateclosed then rs.close
    rs.close
    conn.close
    set rs=nothing
    set conn=nothing

Answer 3

set rs=nothing
set conn=nothing

Answer 4

'在每次rs打开之前都检查其状态
if rs.state=adstateopen then rs.close
rs.open ...