delphi中一个问题

我现在有个问题，一个事件中的代码问题，sql语句，比如客户输入信息我按照信息查询，查的到就显示，查不到就showmessage（'没有找到数据'）
我大概是这么写的
with adoquery1 do
begin
close;
sql.clear;
sql.add('select ...from ...where 条件=...');
if adoquery1.RecordCount=0 then showmessage('没有找到数据')
else
with adoquery1 do
begin
close;
sql.clear;
sql.add('select ...from ...where 条件=...');
下面显示的代码就省略了，大家可以看到我2段sql语句，要运行2次，第一次判断是否sql中有相应的数据，第二次是有的话就在搜索显示出来，我感觉很烦啊，但是我又找不到别的办法解决这个如果没有相对的数据显示showmessage的问题，请问大家怎么办？有没有简单少点的代码能达到效果，谢谢了

---

数据集是不是关了，检查一下。

---

ok，谢谢，接分

---

ok解决