Sorry, but I gave you the execute for running the action query. The following will run a select query. I'm doing it with a variable but if you replace the mstrQuery with the "YourQueryName" for the name of your query that would work also.
DoCmd.OpenQuery QueryName:=mstrQuery, View:=acViewNormal
'To open as a recordset
Dim rstIN As DAO.Recordst
Set rstIN = CurrentDb.OpenRecordset(mstrQuery)
If rstIN.RecordCount <> 0 Then
' proceed
Else
Exit Sub
End If
-------------------------------------
scking@arinc.com
Try to resolve problems independently
Then seek help among peers or experts
But TEST recommended solutions
-------------------------------------