con连接有关问题

con连接问题
.ActiveConnection   =   con

执行到此处显示，根据上下文，已被关闭或无效。

 
我并未在程序中，加入set   con=nothing   此类语句。

请问，还有什么问题，导致不能连接

[解决办法]
其它sub里可能关掉了。