Unable to run Access query through ADODB connection in Excel - excel

Question

I am trying to paste in the results of an access query to a sheet in Excel.
When I run the following code, nothing happens. No errors or warnings, just nothing ever gets pasted in. However, when I run the same code, but use a table instead of a query name, it successfully pulls in the table. But when I replace it with a query name, it returns nothing.
In the past I have done the same thing but instead of calling the query name, I have stored the SQL query as a string within the macro and called the query by referencing the string. I tried that and that did not work in this case.
The query I am trying to pull references other queries as tables, and I think this is why I am having issues. Like I said, I have pulled data from Access with this code many times before but have only been able to do so when I am referencing tables only, and not queries.
Dim Con As ADODB.Connection
Set Con = New ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim iCols As Integer
Set Con = New ADODB.Connection
With Con
.Provider = "Microsoft.ACE.OLEDB.12.0"
.Open AccessDBPath
End With
Set rs = New ADODB.Recordset
rs.Open "query1", Con
Sheets("NAHV").Range("E2").CopyFromRecordset rs
I have tried replacing the rs.Open line with the Execute command:
Set rs = Con.Execute("query1")
and this also did not work.
I have also tried replacing the full block with
Dim cn As Object, rs As Object
Dim myFile As String: myFile = AccessDBPath
Set cn = CreateObject("ADODB.Connection")
With cn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.ConnectionString = "Data Source=" & myFile & ";"
.Open
End With
Set rs = cn.Execute("query1")
Sheets("NAHV").Range("E2").CopyFromRecordset rs
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
and this did not work either.