Quote Originally Posted by sktneer View Post
This worked for me...
I was getting a lot of inconsistent results and tbh its possible there was too much data.
I ended up switching the code up anyway which seemed to give me better performance.

On Error Resume Next
    For Each cn In wbDBSecond.Connections
        lTest = InStr(1, cn.OLEDBConnection.Connection, "Provider=Microsoft.Mashup.OleDb.1")
        If Err.Number <> 0 Then
            Err.Clear
    Exit For
        End If
        If lTest > 0 Then cn.Refresh
            Next cn