大家请帮忙！高分求解！如何截获rdo连接数据库失败的错误

Question

dim gData as As New rdoConnection 
Global Const gCurDriver = rdUseOdbc 
Global Const gDriver = "{SQL Server}"  gData.CursorDriver = gCurDriver
   gData.Connect = "UID=用户名;PWD= 密码 ;Server=数据库IP地址;" _
      & "Driver=" & gDriver & ";DataBase=数据库名;DSN='';"
   gData.EstablishConnection如果因为网络不通原因造成连接失败，在gData.EstablishConnection执行后会自动弹出失败的消息，确定后弹出连接数据库的对话框，我的目的是不想让它弹出系统消息和对话框，否则数据库安全就不能保证，但我加了On Error Resume Next 还是不行，好像截获不了错误。

Answer 1

err.clear
on error goto e
'这一部分是可能出错的代码e:
   msgbox "错误代码："&err.number
   msgbox "错误信息："&err.Description 
   '以下根据具体情况进行相应处理
   select case err.number
       case ..
       case ..
   end select

Answer 2

那就用findwindow来找这个弹出的窗口吧.