为什么执行了没变化

str :='10001'; 
AdoQuery1.Close;
AdoQuery1.sql.Clear;
AdoQuery1.Sql.Add('select seller from sell where productNO=''' + str + '''');
AdoQuery1.open;为什么我执行上面程序后 TDBGrid 上的内容没有变啊
跟踪执行了上面的程序了的