MySQL.Database("localhost", "sakila", [ReturnSingleDatabase=true])
                 {[Schema="sakila",Item="category"]}[Data]
                 [[name],[last_update]]

Sql.Database("azuredb.powerqueryworkshop.com", "Adventureworks2012")
             {[Schema="Sales",Item="vSalesPerson"]} [Data]
             [[BusinessEntityID],[EmailAddress],[AddressLine1]]

Sub GetData1()
    Application.ScreenUpdating = False
    Dim tm!: tm = Timer
    Dim sConn As String, sSQL As String
    Dim pConn As Object
    Dim finalRow As Long
    
    finalRow = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    sConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\test.accdb;"
    Set pConn = CreateObject("ADODB.Connection"): pConn.Open sConn
    sSQL = "SELECT t2.Pr " & _
          "FROM [Excel 12.0;Database=" & ThisWorkbook.FullName & ";HDR=Yes].[Лист1$A1:B" & finalRow & "] AS t1 " & _
          "LEFT JOIN [data] As t2 " & _
                "ON (t1.Filid = t2.Filid AND t1.Lid = t2.Lid);"
    
    Sheets("get1").Cells.Clear
    Sheets("get1").Range("A1").CopyFromRecordset pConn.Execute(sSQL)
    pConn.Close
    
    Application.ScreenUpdating = True
    Sheets(1).[n1].Value = Format((Timer - tm) / 24 / 60 / 60, "nn:ss")
End Sub

Driver={MySQL ODBC 5.2 UNICODE Driver};Server=192.168.1.1;Database=myDataBase;User=myUsername;Password=myPassword;Option=3;

Driver={MySQL ODBC 5.2 UNICODE Driver};Server=yourComputerName.subDomainName.domainName;Database=myDataBase;User=myUsername;Password=myPassword;Option=3;