错误处理的基础问题,麻烦了
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