' Code courtesy of UtterAccess Wiki
' http://www.utteraccess.com/wiki/index.php/Category:FunctionLibrary
' Original submission by: Brent Spaulding (datAdrenaline)
' Date contributed: 2010-07-27
'
' You are free to use it in any application,
' provided this copyright notice is left unchanged.
'

Public Function IsQuery(strQueryName As String) As Boolean
'Determine if the passed string is a Query object in the current database.

   IsQuery = DCount("*", "MSysObjects", "[Name]='" & strQueryName & "' And [Type] = 5")

End Function