Does My VBA Code To Refresh CSV Power Query Connections Need To Change for MySQL Queries?

[beaglesBuddy]

I use VBA to open an excel file and refresh the power query connections. The code works fine when I'm connecting to a CSV file as the data source but recently I switched the query to a MySQL data source. Since I did that I'm getting "Application-defined or object-defined error" on the .Refresh line.

When I open the file and push refresh on the MySQL connection the query refreshes with no problems. Does something need to be changed?

'''''''GET THE PATH OF THE FILE WITH THE QUERIES TO BE REFRESHED
Public Sub Load_DBSECOND_Path()
    Range("Path_DBSECOND").Value = GetPath()
End Sub

Dim strDBSecond_Path As String
Dim wbDBSecond As Workbook

Dim con As WorkbookConnection
Dim Cname As String

'''''''LOOP THROUGH ALL POWER QUERY CONNECTIONS AND REFRESH ONE AT A TIME UNTIL NO MORE REMAIN
Set wbDBSecond = Workbooks.Open(strDBSecond_Path)

        For Each con In wbDBSecond.Connections
            If Left(con.Name, 8) = "Query - " Then
            Cname = con.Name
                With wbDBSecond.Connections(Cname).OLEDBConnection
                    .BackgroundQuery = False
                    .Refresh
                End With
            End If
        Next

[sktneer]

This worked for me...

Sub RefreshQuery()
Dim strDBSecond_Path As String
Dim wbDBSecond As Workbook

Dim con As WorkbookConnection
Dim Cname As String

'''''''LOOP THROUGH ALL POWER QUERY CONNECTIONS AND REFRESH ONE AT A TIME UNTIL NO MORE REMAIN

'I Changed the workbook reference to test the code
Set wbDBSecond = ThisWorkbook

For Each con In wbDBSecond.Connections
    If Left(con.Name, 8) = "Query - " Then
    Cname = con.Name
        With wbDBSecond.Connections(Cname).OLEDBConnection
            .BackgroundQuery = False
            .Refresh
        End With
    End If
Next
End Sub

[beaglesBuddy]

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