Return the name of open query

[ilcaa]

i am working in Excel VBA i need to return the name of the current open query... what is the proper syntax?
using this example, how would i return "This_Query"

Dim CN as New ADODB.Connection
CM.Open ConnectionString

This_Query = "select....."

Dim rs As New ADODB.RecordSet
rs.Open This_Query, CN

-- process record set --

 

[ranman256]

You didnt open a query, this is an SQL statement.
If you want an actual query name in the access db, then it is in the list of db.querydefs.

If you just want to return "This_Query", you can change the routine to a function and return the name.
or just msgbox "This_Query"

 

[ilcaa]

the above is an excel Function (i left alot of the code out but kept the connection part). i want to shorten the code to process the records so id like to call 2 queries within same function but have a statement that processes the information depending on query name... If Query.Name =" queryname" then process records like this...

I assume rs.Open <query name> is the name of the query, and i was hoping to reference this name within my vba code.. or can you even reference a query name

 

[ranman256]

What I mean is, if the query actually exists in the database as a querydef, then you must ask for it by name, "qsMyQuery".
but since you already know the name, where do you want the name to go?