发生ODBC错误的处理？（在线，解决立即给分）

窗体建立时：
ErrHandler:
    on error goto ErrHandler
      set cn=new rdoconnection
      with cn
      .connect='';dsn=yang;uid=sa;pwd=XXXX;
      .querytimeout=5
      .cursordriver=rduseclientbatch
      .establishconnection  rddrivernoprompt,false
     end with
此数据源是调用远程机器上的数据库，本想在网络不通的时候反复进行数据连接，但运行此段程序时就会发生错误，提示如下：
实时错误'40002'
01000:[microsoft][odbc sql server driver][named pipes]connection open(createfile()).我想在断开连接的时候，处理此错误消息，并重新尝试去连接，不知道各位高手有什么办法能解决此问题？