如何自定义连接失败信息？

Question

我连接SQL数据库，当然，连接成功是没什么问题的。  
如果目标服务关闭了，或者网络不通，连接不会成功，会有一个很讨厌的对话框出现，如何不让它出现而显示我定义的内容？  
 
比如：  
Dim  CN  As  ADODB.Connection  
Dim  RS  As  New  ADODB.Recordset  
Set  CN  =  New  ADODB.Connection  
       With  CN  
               .ConnectionString  =  "uid=sa;pwd=;driver={SQL  Server};server=127.0.0.1;database=student"  
               .ConnectionTimeout  =  30  
               .Open  
       End  With  
……  
 
代码加在哪里？

Answer 1

1.加 On Error GoTo ExecuteSQL_Error
2、捕获错误号 （不记得，我找找，关注请mail to [email protected]）3、ExecuteSQL_Error：
   select case cuowuhao 
         case  1
         .............
         case   2
           ............
   end select