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.