access update问题

procedure TForm9.FormShow(Sender: TObject);begin
//edit2.Visible:=false;
 edit1.Text:=yhs;
 a:= form2.adoquery2.fieldbyname('id').Asinteger;
 ComboBox4.Text := form2.adoquery2.fieldbyname('zc').AsString;
 ComboBox3.Text := form2.adoquery2.fieldbyname('ly').AsString;
 DateTimePicker4.DateTime := form2.adoquery2.fieldbyname('date1').Asdatetime;
 ComboBox1.Text := form2.adoquery2.fieldbyname('je').AsString;
 edit1.text := form2.adoquery2.fieldbyname('yh').AsString;
 memo1.text := form2.adoquery2.fieldbyname('bz').AsString;
 edit2.Text:=inttostr(a);
end;procedure TForm9.Button1Click(Sender: TObject);begin with adoquery1 do
   begin   close;
   sql.Clear;
   sql.Add('update sj set date1='''+datetostr(DateTimePicker4.DateTime)+''',zc='''+ComboBox4.text+''',ly='''+ComboBox3.text+''',je=''+ComboBox1.text+'',bz='''+memo1.Text+''' where [id]=:a ');   execsql;
         application.MessageBox('修改成功!','提示：',MB_OK);
    close;
   end;提示修改成功
数据库不更新！
a为全局变量
ID为主键 自动编号
ACCESS