ADODB EXCEL SQL COPYRECORDSET TO SLOW

Question

I use VBA and ADODB Connection in Excel to realize VLOOKUP with SQL in attached code: The Line "ThisWorkbook.Worksheets("ziel").Range("A1").CopyFrom