excel vba on refresh odbc deadlock victim

[crushdrinker06]

I have an excel file in which I have made three data connections using the data connection wizard. the option first selected was "ODBC DSN". I have unchecked the "refresh every XX minutes" option since sometimes when refreshing I get a popup window with an OK button that states that there was a deadlock and the sheet was chosen as the victim. Instead I am using a macro with "ActiveWorkbook.RefreshAll" in it. Even with this I am getting the popup window saying that there was a deadlock and the sheet was chosen as the victim. I have tried to use "On Error Resume Next" before the refresh and both

For i = 0 To 100
    Debug.Print ""
Next i

and

If Err.Number <> 0 Then

afterwards. Unfortunately I am still getting the popup window. I do not have the ability to change any settings in the actual database. Please advise as to how I can automatically get the pop up window to go away so that I can retry the refresh.

 

[crushdrinker06]

I can't figure out how to edit the previous post, but I wanted to add some of the code. "ThroughputCalculations" will manipulate the data from the connections and will call "UpdateCheckTP" after 60 minutes.

Sub UpdateCheckTP()
On Error Resume NextActiveWorkbook.RefreshAll
For i = 0 To 100
    Debug.Print ""
Next i
If Err.Number <> 0 Then
Application.OnTime Now + TimeValue("00:00:01"), "Recall"
Else
Application.OnTime Now + TimeValue("00:00:10"), "ThroughputCalculations"
End If
End Sub

Sub Recall()
Application.OnTime Now + TimeValue("00:00:30"), "UpdateCheckTP"
End Sub