''''''''''''''''''''''''''退出数据库连接''''''''''''''''''''''''''''''''''''''''''
Sub CnnClose()
    If rs.State Then rs.Close
    If cn.State Then cn.Close
    Set rs = Nothing
    Set cn = Nothing
End Sub
在用到的地方CALL一下!
再完善一下的话!在每用完RS后添加一个rs.Refresh.
OK!试试吧!