ADOConnection1.Connected:=False;
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/TTT.xls;Extended Properties=Excel 8.0;Persist Security Info=False';
ADOConnection1.Connected:=True;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT date,name,types FROM [excel 8.0;database=C:/TTT.xls].[Sheet1$] WHERE types LIKE "%'+Edit1.Text+'%"');
ADOQuery1.Open;
end;