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