结束用户进程是出错，大家给看看

Question

下面的程序实现在恢复备份的数据库之前关闭用户进程，可是执行时总是报错
出错信息是[DBNETLIB][ConnectionRead(WrapperRead())] 一般性网络错误，请检查网络文档
不知道是什么意思，大家给看看
Public Function KillProcess() As Boolean
On Error GoTo KillProcessError
Dim con As New ADODB.Connection
con.ConnectionString = GetConString
con.Open
Dim rs As New ADODB.Recordset
'È¡µÃ¸ÃÊý¾Ý¿âID
Dim sql, temp As String
sql = "select spid from master..sysprocesses where dbid=db_id('" & NameList.Text & "')"
rs.Open sql, con, adOpenKeyset, adLockReadOnly
    While rs.EOF = False
        temp = "kill " & rs(0)
        MsgBox temp
        con.Execute temp
        rs.MoveNext
    Wend
KillProcess = True
Exit Function
KillProcessError:
MsgBox Err.Description, vbOKOnly + vbInformation, "½áÊø½ø³Ì³ö´í"
KillProcess = False
If con.State = adStateOpen Then
con.Close
End If
If rs.State = adStateOpen Then
rs.Close
End If
End Function

Answer 1

急用，哪位帮忙额外给分，大家帮忙亚