Function ChangeQueryDef(strQuery As String, strSQL As String) As Boolean
' strSQL The SQL string for the querydef
    If strQuery = "" Or strSQL = "" Then Exit Function
    Dim qdf As QueryDef
    Set qdf = CurrentDb.QueryDefs(strQuery)
    qdf.SQL = strSQL
    qdf.Close
    RefreshDatabaseWindow
    ChangeQueryDef = True
End Function