I tried replacing this line:
VB Code:
  1. (Connection:= _
  2.         "FINDER;C:\test\Query from MS Access Database.dqy" _
  3.         , Destination:=Range("A1"))
with
VB Code:
  1. (Connection:= _
  2.         "FINDER;C:\test\Query from MS Access Database.dqy" _
  3.         , Destination:=ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row)

That did not work. And I would guess it has to do with my lack of programming knowledge as to why it did not work. Do I need some other function to use this?