article-script03-building-and-using-a-table-of-queries

Function ReturnStandardQuery(strQueryName As String) As String
  Dim varMsg As Variant

  On Error GoTo handle_Error

  ReturnStandardQuery$ = CStr(DLookup("\[qryString]", "tblOfQueries", "\[qryName]='" & strQueryName$ & "'"))

  If ReturnStandardQuery$ = "" Then GoTo handle_Error

 exit_Gracefully:
	  On Error Resume Next
    Exit Function

 handle_Error:
	  MsgBox "Error " & Err.Number & " " & Err.Description & " in ReturnStandardQuery$ function."
  End If
End Function