Filtrar tabla para dbgrid

[[Caral]]

Hola este es un codigo que utilizo para filtrar de una tabla (ATArticulos) con un edit un combobox y un grid.
Mi intencion es que veas el codigo de acceso para base de datos en access y te puedas dar una idea.

procedure TFBuscaArticulo.Edit1Change(Sender: TObject);
var Filtro : String;
begin
If (Edit1.Text <> '') then
begin
ATArticulos.Filtered := False;
If CBFiltro.Text = 'Código' then Filtro := 'CodParte Like '''+Edit1.Text + '*'''
else If CBFiltro.Text = 'Descripción' then Filtro := 'Descripcion Like '''+ Edit1.Text + '*'''
else If CBFiltro.Text = 'Categoría' then Filtro := 'Categoria Like '''+ Edit1.Text + '*''';
ATArticulos.Filter := Filtro;
ATArticulos.Filtered := True
end
else ATArticulos.Filtered := False;
end;

Aqui uso tres obciones de filtro: codigo, descripcion, categoria
Con solo poner la primera letra en el EDIT este va filtrando las posibles alternativas y las presenta en un grid.
Al cambiar de letra, cambia el grid y asi sucesivamente
analizalo, tal vez te sirva.
Saludos

[nachito_tuc]

Probe lo que me dijiste tal como lo hiciste vos pero sigo recibiendo el mensaje: "Capability not supported".
Tal vez no estamos usando la misma versión de Delphi. Yo uso la 7, o quizás el driver de Access que estoy usando no es el correcto, de todos modos gracias.
Saludos

Nacho

[[Caral]]

Hola
Yo uso Delphi 6, ADOConnection, y en controlador Jet 4.0 OLE DB Provider.
No se si hay otros pero este sistema funciona
Saludos