请问错误处理的问题。

我连接几个数据库（SQL Server）
dim cnn 为adodb的连接......
....
on error goto ErrDo:
cnn.open
...
DataStatus=true
...
cnn.closeErrDo:
   if err.number<>0 then    '连接数据库时如果数据库关闭错误号是-2147407259,0好像是没错
     msgbox err.number & err.description
     ....
     DataStatus=false   '数据库状。
     exit sub
     else
     resume Next   '我想当错误号为0的时候执行cnn.open,但是好像resume next不行，帮我。
end sub
程序写的乱七八糟，我想实现这样：在cnn.open的时候，发现“数据库无法连接”这个错误号时，将相应的数据库状态＝false，然后跳出Sub，如果可以实行cnn.open,则相应的数据库状态＝true。
但是我写的这些程序不能完成，就算cnn.open可以执行，它也一直跳到在ErrDo步骤去。请大家帮帮忙