IsQueryExist

Public Function IsQueryInMdb(cQuery As String, cDb As String) As Boolean
Dim CurDbAs Database
Dim Qd As QueryDef
Set CurDb = OpenDatabase(cDb, , True)
For Each Qd In CurDb.QueryDefs
If UCase(cQuery) = UCase(Qd.Name) Then
IsQueryInMdb = True
Exit For
End If
Next
CurDb.Close
End Function