sCn = "OLEDB;Provider=MSDASQL.1;Persist Security Info=True;
Extended Properties=""DRIVER={MySQL ODBC 5.1 Driver};UID=root;PWD=*****;SERVER=localhost;DATABASE=ipfns;PORT=3306;"""
    For i = 1 To Sheet1.ListObjects.Count
        Sheet1.ListObjects(i).QueryTable.Connection = sCn
        Sheet1.ListObjects(i).QueryTable.BackgroundQuery = False
        Sheet1.ListObjects(i).QueryTable.Refresh
        
    Next i

sCn = "OLEDB;Provider=MSDASQL.1;Persist Security Info=True;
Extended Properties=""DRIVER={MySQL ODBC 5.1 Driver};UID=root;PWD=*****;SERVER=localhost;DATABASE=ipfns;PORT=3306;"""   
    For i = 1 To ThisWorkbook.Connections.Count
        a = ThisWorkbook.Connections(i).OLEDBConnection.Connection
        If a <> "" Then
            ThisWorkbook.Connections(i).OLEDBConnection.Connection = sCn
        Else
            ThisWorkbook.Connections(i).ODBCConnection.Connection = sCn
        End If
        ThisWorkbook.Connections(i).Refresh
    Next i