How get SQL for query via VB not designer ??

[mscertified]

I have a query that wont open in the designer, Is there any way to get the
sql text programatically with VB?

I've tried using AccessObjects but so far can't see how to do it. Access
help is of no use and so is every Access book I have.

 

[Ofer]

Try this

currentdb.QueryDefs("QueryName").SQL

 

[Douglas J. Steele]

Using DAO:

strSQL = CurrentDB.QueryDefs("NameOfQuery").SQL