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

[xuleiming]

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 还是不行，好像截获不了错误。

[tztz520]

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

[yyuyes]

err.clear
on error goto e
'这一部分是可能出错的代码

e:
msgbox "错误代码："&err.number
msgbox "错误信息："&err.Description
'以下根据具体情况进行相应处理
select case err.number
case ..
case ..
end select