获取某个查询的代码DAO方法

Function DisplaySQL()
Dim q As DAO.QueryDef
For Each q In CurrentDb.QueryDefs
Debug.Print q.Name & vbCrLf & "--------" & vbCrLf & q.SQL
Next
End Function