hiv info ud

Jeg bruger denne kode for at lave en søgning i databasen efter CPR-nummer
Alle mine oplysninger ligger i ADOTabel1
Jeg laver en søgning og hvis den givet mindst ét hit (jeg kan også søge på navne)
SqlTekst:='SELECT * FROM Tabel1 WHERE ';
  if txtCPR.Text<>'' then begin
    SqlTekst:=SqlTekst+'CPR LIKE '''+txtCPR.Text+'%''';
    FilterTekst:='CPR LIKE '''+txtCPR.Text+'%''';
  end;
  Dataset1.CommandText:=SqlTekst;
  Dataset1.Active:=True;
  AntalRec:= Dataset1.Recordset.RecordCount;
  Dataset1.Active:=false;
  Dataset1.Close;
  If AntalRec>0 then begin
    ShowMessage('Der er fundet '+inttostr(AntalRec)+' poster');
    // Så sættes der filter på, så kun de matchende poster vises
    ADOTabel1.Filter:=FilterTekst;
    ADOTabel.Filtered:=True;
  end else
    ShowMessage('Der er ikke fundet nogle poster');