Dim qd As DAO.QueryDef
Debug.Print CodeDb.Name
For Each qd in CodeDb.QueryDefs
Debug.Print qd.Name
Debug.Print qd.SQL
Next
Debug.Print CurrentDb.Name
For Each qd in CurrentDb.QueryDefs
Debug.Print qd.Name
Debug.Print qd.SQL
Next
' for action queries
CurrentDb.Execute "QueryX", dbFailOnError
Code.Execute "QueryY", dbFailOnError