利用表BI2的数据更新表BI1的数据,UpData语句这样写为什么不行？(100分)

提示出错为：‘操作必须使用一个可更新的查询！’
我用的是Delphi + Access + ADO.
表的结构：
BI1，BI2 均为: 序号，项目，第一年，第二年。。

procedure TFormAssetEvaluate.DBGridEh1ColExit(Sender: TObject);
var
str1,str2 : string;
begin

Str1 := TreeviewTable.Selected.Text;
str2:= Copy(str1, 1, Pos(' ', str1) - 1);
if str2 = 'BI2' then

begin

with QInUp do

begin

Close;
SQL.Clear ;
if Str2 = 'BI1' then
exit;
SQL.Add('update BI1 set 第一年 = (select Sum(第一年) from BI2) where 序号 = 1');
ExecSQL;
end;

end;

end;

[?]