If you want to keep everything in VB. Open the query in design mode.
Shift to SQL View.
Copy the results and bring it to the VB code and paste. You will need to do some clean up (puting it into string)