Public Function QueryExists(strQueryName As String) As Boolean

   Dim accQry As AccessObject
   QueryExists = False ' 默认值为不存在，除非查询被找到。
  

   ' 使用CurrentData.AllQueries集合来获取已有的查询。
   ' 依次通过已有的查询列表来获取查询名。
   For Each accQry In CurrentData.AllQueries

        If strQueryName = accQry.Name Then
           QueryExists = True ' 找到这个查询
          
           Exit For ' 跳出循环
       End If
   Next accQry

End Function