was ist hier falsch?

wieso meckert der PC bei foldendem Code: 'Typen unverträglich:'Range'

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

With xlSheet.QueryTables.Add(Connection="TEXT;C:\down.txt", Destination _
=Range("A1"))

Gruss, Moritz