This code works wonders to reduce flicker and lessen your frustration. Place a timer on the form (tmr_Timer) and set the Interval to 1000. Set Enabled to False, then place this code in the txt_Filter_Change event:
Private Sub txtFilter_Change() Timer1.Enabled = False Timer1.Enabled = TrueEnd Sub
In the Timer event, call this routine that refreshes your recordset:
Private Sub Timer1_Timer() Timer1.Enabled = False Call MyUpdateRecordsetRoutineEnd Sub
The recordset will only be updated if you haven’t pressed a key for a full second. Each time you press a key, the timer is reset and the one-second countdown starts all over again.