How can i do a query using VBA?

Question

i need help :C ... i want to import data from a web page using VBA, but i have the 1004 error. This is the code that i use:

Sub QueryStarter() \'This is an adaptation