Set filter...

Buenos Días.

Mi problema es el siguiente:
Tengo un form con un grid y un textbox. Mi idea es que el usuario pueda
filtrar los datos del grid de forma rápida, a medida que escribe en el
textbox. Con la ayuda del "builder" del grid, asigno la tabla
correspondiente, la cual tiene 8000 registros y 175 campos.

En el evento "interactivechange" del textbox tengo:

Public lcCadena as String
lcCadena = ALLTRIM(this.Value)
SELECT expedientes
SET FILTER TO LIKE("*"+lcCadena+"*",expediente)
this.Parent.grid1.Refresh

Funciona. Pero muy lento.

¿Cómo puedo hacer para que funcione más rápido?

Saludos!