通信联接失败！

[hulianchi]

我是这样调用存储过程的；
With g_adoCommand
.CommandType = adCmdStoredProc
.CommandText = "GetNetAndRoad"
.Parameters.Refresh
.Parameters("@SubCenterCode") = strSubcenterCode
Set GetNetAndRoad = .Execute
End With
g_adoCommand是全局变量
会因为网络的原因出现"通信联接失败！"错误提示。该如何调用存储过程？

不知大家如何处理网线拔掉，再联结的情况。

[xiaoxinghappy]

用 On error 吧

On error goto Command_Error
With g_adoCommand
.CommandType = adCmdStoredProc
.CommandText = "GetNetAndRoad"
.Parameters.Refresh
.Parameters("@SubCenterCode") = strSubcenterCode
Set GetNetAndRoad = .Execute
End With
Command_Error:
If err.Number<>0 then
Msgbox "执行 Command 失败"
End if
on error goto 0