filtrage BD Access avec Delphi

procedure TfrmFamille.codeKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
Var
   Erreur : Integer;
begin
Erreur:=0;
TableFamille.Filtered:=False;
   if( Code.Text='')then
       if (Famille.Text='')then
            Erreur:=1
       else
            TableFamille.Filter:='NomFamille='''+ Famille.Text+'*'''
   else
       if (Famille.Text='')then
               TableFamille.Filter:='CodeFamille='''+ Code.Text+'*'' '
       else
              TableFamille.Filter:='CodeFamille='''+ Code.Text+'*'' and NomFamille='''+ Famille.Text+'*''';
if(Erreur=0)then
     TableFamille.Filtered:=true;
end;

Filtrage d'une base accesse

ce code de filtrage marche trés bien avec une base paradox7(Des object BDE) maisil ne marche pas avec une base Access (Des object ADO) donc je me dommende pourqui merci l'avance 8o).

Salut,
pour ça il faudrais utiliser un Adoquery
AdoQuery1.Active:=false;
AdoQuery1.Sql.text:='Select * from TableFamille Where CodeFamille Like "'+ta valeur a trouver+'%"';
AdoQuery1.Active:=true;
c'est juste un aperçu pour te mettre sur la voix
@+