@The_Doc_Man, not sure what you meant. It is quite simple to change ControlSource property of control on form (not report) via VBA in runtime.
"query.qsData1" would be setting ControlSource to a field in form RecordSource - RecordSource based on query.
Can use IIf() function in ControlSource, example:
=IIf(SubDate + 365 <= Date(), "Expired", "Current")