将连接设置为空时，断开logging集失败

我在Windows 7（ADO 6.1）的Excel 2010中使用VBA。 我试图执行下面的代码从SQL存储过程抓取断开的logging集。 没有参数，如果我试图执行这个连接的logging集（服务器端游标），代码执行得很好。

问题发生在我尝试将activeconnection属性设置为空的最后一行。 Excelpopup一个空白的错误消息框，没有错误信息或错误号，只是vbCritical图标。

有谁知道为什么会发生错误，试图清除活动连接？

Dim SQLConnectionString as String SQLConnectionString = "Driver={SQL Server};Server=SERVERNAME\INSTANCE;Database=Database;UID=user;PWD=password;" Dim cn As ADODB.Connection Dim cmd As ADODB.Command Dim rs As ADODB.recordset Set cn = New ADODB.Connection cn.Open SQLConnectionString Set cmd = New ADODB.Command Set rs = New ADODB.recordset With cmd .ActiveConnection = cn .CommandText = sp .CommandType = adCmdStoredProc End With Set rs.ActiveConnection = cn rs.CursorLocation = adUseClient rs.LockType = adLockBatchOptimistic rs.CursorType = adOpenStatic rs.Open cmd.Execute Set rs.ActiveConnection = Nothing