如果无法打开/找到SQL连接，则结束Sub / Exit Sub

Question

当无法打开关联的SQL连接时，有没有办法结束sub？

例如，我的代码如下所示：

ActiveWorkbook.RefreshAll

但是如果连接的sql连接无法打开，我想立即结束Sub。

我试过这样的事情：

On Error GoTo Test
ActiveWorkbook.RefreshAll

'My Makro

Test:
MsgBox "Error"
End Sub

但似乎VBA没有将不可用的SQL连接视为＆＃34;真正的＆＃34;在这种情况下的错误。