如何添加错误跳转

Question

connectStr2 = "DSN=" + t3 + ";"           '连接odbc mdb
cnn2.ConnectionString = connectStr2
cnn2.Open到cnn2.Open的时候提示没有数据库之类的错误时.如果不提示并并跳过或关闭程序,
求代码求教~~~
谢谢大家

Answer 1

private sub command1_click()
on error toto errhandle
    ....
    ....
    ....
    exit sub
'错误处理
errhandle:
    msgbox "错误，请检查!",48,"提示"
    exit sub
end sub

Answer 2

不行/
cnn2.Open时一样提示出来
没有跳转到errhandle

Answer 3

还有以上是FROM不是command1来的而已是一个FROM连接两种数据库的情况

Answer 4

On Error GoTo Hand
...
....
Hand:
        MsgBox Err.Description, vbCritical, "错误"

Answer 5

就是1楼那样没问题吧  on error toto errhandle -->on error Goto errhandle 

Answer 6

sub subFF
on error goto errSub
    
    exit sub
errSub:end sub

Answer 7

如果是在IDE. Toggle->break on unhandled errors

Answer 8

就算是GOTO的写法都是不行.求第2种写法GOTO的写法我这的情况是没有跳转到指定的ERR