con连接问题
.ActiveConnection = con

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


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

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

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