VBA错误后恢复执行

Question

最近有一个问题。 当访问应用程序失去它的互联网连接（它显然是连接到数据库），3146错误出现。该任务是在重新建立互联网连接后实施错误处理，恢复和继续程序执行。

我在MSDN和Stackoverflow上做了大量的阅读，并没有设法找到一个明确的解决方案来解决这个问题。

Answer 1

所以我找到了一个适合我的解决方案。 下面是一个简单的算法概要：

Sub name_of_the_sub 
    Dim ...... As .... 
    Dim ...... As .... 
    ... 

Loop_Label: 

    On Error GoTo ErrorHandler 

    {code that might throw an error} 
    ... 

    GoTo Loop_Label 

ErrorHandler: 
    {log your error} 
    {wait for a some time} 
    {connect to data base} 
    Resume Loop_Label: 

End Sub