你添加数据和查询数据不要用一个query，因为你查询的时候没有参数传入，所以Form1.ADOQuery1.Active:=true就出问题了。
先打上断点 然后单步debug一下，看错在哪儿了。好久没用delphi了，都忘了adoquery的属性字段了
你的adoquery1里面的SQL语句写错了啊把你的语句贴出来看看
感觉是 ADOQuery1 里SQL语句有问题
