Sub CreateTableFromMySQL(title As String, query As String)
    Const driver = "{MySQL ODBC 5.3 Unicode Driver}"
    Const server = "XXX.XXX.XXX.X"
    Const database = "XXXX"
    Const user = "XXXX"
    Const password = "XXXX"
    Const connection = "ODBC;DRIVER=" & driver & ";SERVER=" & server & ";DATABASE=" & database & ";USER=" & user & ";PASSWORD=" & password & ";"
    Dim table As ListObject
    Dim x As Range
        Worksheets.Add
        Set table = ActiveSheet.ListObjects.Add(xlSrcExternal, connection, True, xlYes, Range("A2"))
        With table.QueryTable
            .CommandType = xlCmdSql
            .CommandText = query
            .Refresh False
            .Delete
        End With
        Set x = Range(Cells(1, 1), Cells(1, (Cells(2, Columns.Count).End(xlToLeft).Column)))
        With x
            .Merge
            .HorizontalAlignment = xlCenter
            .Font.Bold = True
            .Value = title
        End With
        Range("A1").AddComment query
        Range("A1").Comment.Visible = False
End Sub