Поиск в БД работает, но перестали отображаться остальные столбцы в гриде

ADOQuery1.Close;
   ADOQuery1.SQL.Text:='SELECT code FROM privet WHERE code LIKE'
     +'''' + Edit1.Text + '%'' ORDER BY code';
   ADOQuery1.Open;

ADOQuery1.SQL.Text:='SELECT * FROM privet WHERE code LIKE...';

procedure TForm3.Button11Click(Sender: TObject);
 
var fltr:string;
begin
if Edit2.Text<>'' then fltr:=fltr+' ishodnomer like '+QuotedStr('%'+edit2.Text+'%');
 
if DateTimePicker3.Checked=true and DateTimePicker4.Checked=false
then
begin
  if Edit2.Text<>'' then fltr:=fltr+' and';
  fltr:=fltr+' ishoddate=:d1';
 
end
else
begin
if DateTimePicker3.Checked=true and DateTimePicker4.Checked=true
then
begin
 if Edit2.Text<>'' then fltr:=fltr+' and';
  fltr:=fltr+' ishoddate between :d1 and :d2';
end;
 
end;
 
datamodule2.ADO_ishod.Close;
datamodule2.ADO_ishod.SQL.Clear;
datamodule2.ADO_ishod.SQL.Text:='select * from ishodtable where '+fltr+ ' order by idkey desc';
 
 
if DateTimePicker3.Checked=true and DateTimePicker4.Checked=false
then
begin
  datamodule2.ADO_ishod.Parameters.ParamByName('d1').Value:=FormatDatetime('dd/mm/yyyy',DateTimePicker3.Date);
 
end;
if DateTimePicker3.Checked=true and DateTimePicker4.Checked=true
then
begin
  datamodule2.ADO_ishod.Parameters.ParamByName('d1').Value:=FormatDatetime('dd/mm/yyyy',DateTimePicker3.Date);
    datamodule2.ADO_ishod.Parameters.ParamByName('d2').Value:=FormatDatetime('dd/mm/yyyy',DateTimePicker4.Date);
 
end;
datamodule2.ADO_ishod.open;
 
end;

ADOQuery1.Close;
   ADOQuery1.SQL.Text:='SELECT * FROM privet WHERE code LIKE
     +'''' + Edit1.Text + '%'' ORDER BY code';
   ADOQuery1.Open;

ADOQuery1.Close;
ADOQuery1.SQL.Text:='SELECT * FROM privet WHERE '+DBGrid1.SelectedField.DisplayName+' LIKE
+'''' + Edit1.Text + '%'' ORDER BY '+DBGrid1.SelectedField.DisplayName;
ADOQuery1.Open;

ADOQuery1.Close;
   ADOQuery1.SQL.Text:='SELECT * FROM privet WHERE code LIKE ' +
     QuotedStr('%' + Edit1.Text + '%') + ' ORDER BY code';
   ADOQuery1.Open;