I am confused now.
Your form 'Query1' doesn't use 'FormatConditions.Add(acExpression, ...)' at all.
Instead it adds conditions with 'Me.txtDescription.FormatConditions.Add acFieldValue, acEqual, 1'
and tries to read a fourth condition with 'Set Con = Me.txtDescription.FormatConditions(i)', what...