Sub DataFromMySQL()
    Const driver = "Devart ODBC Driver for Oracle;Description=xxxx;Direct=True;Host=xxxx;Service Name=xxx;User ID=xxxx;Password=xxxxxx;"
    Const server = "хх.хх.ххх.хх"
    Const database = "ххххх.хх"
    Const user = "ххххх"
    Const password = "хххх"
    Const query = "select name from db.device_group" // здесь идет обращение к таблице и выборка
                                                                               // куда добавить вторую таблицу и как((((

    Set Connection = CreateObject("ADODB.Connection")
    Set Recordset = CreateObject("ADODB.Recordset")
    Connection.Open "Driver=" & driver & ";Server=" & server & ";Database=" & database & ";User=" & user & ";Password=" & password & ";"
    Recordset.Open query, Connection
    'Sheets.Add.Name = "Лист " & Worksheets.Count + 1 & " sql"
    'With Recordset
        For i = 0 To Recordset.Fields.Count - 1
            ActiveCell.Offset(0, i).Value = Recordset.Fields(i).Name
        Next
        ActiveCell.Offset(1, 0).CopyFromRecordset Recordset
    'End With
    Recordset.Close
    Set Recordset = Nothing
    Connection.Close
    Set Connection = Nothing
End Sub