在你认为会出错的地方的前面加上On error goto ErrorHandle,哎,一句两句说不明白,你查Msdn吧。

解决方案 »

  1.   

    on error goto errl
         ..../连接网络errl:
         if err.number<>0 then
             .../错误处理
             err.clear
         endif
      

  2.   

    on error goto errl
         ..../连接网络errl:
         if err.number<>0 then
             .../错误处理
             err.clear
         endif
      

  3.   

    on error goto errl
         ..../连接网络errl:
         if err.number<>0 then
             .../错误处理
             err.clear
         endif谢谢楼上的
    就是这样!