UpdateRecord

Private Sub txtFilter_Change()
Timer1.Enabled = False
Timer1.Enabled = True
End Sub

'In the Timer event, call this routine that refreshes your recordset:

Private Sub Timer1_Timer()
Timer1.Enabled = False
Call MyUpdateRecordsetRoutine
End 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.

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: