异常处理的基础有关问题,麻烦了

错误处理的基础问题,麻烦了
Private   Sub   Form_Load()
        On   Error   GoTo   CheckError
        语句段
        MsgBox   "连接成功 ",   vbCritical,   "提示 "

CheckError:
        MsgBox   "连接失败 ",   vbCritical,   "错误 "
End   Sub

--------------------------------------
程序如上,运行后2个box都显示了,怎么样让没有产生错误的时候只显示   成功,产生错误的时候只显示   失败,谢谢

[解决办法]

Private Sub Form_Load()
On Error GoTo CheckError
语句段
MsgBox "连接成功 ", vbCritical, "提示 "
exit sub

CheckError:
MsgBox "连接失败 ", vbCritical, "错误 "
End Sub