大家来帮我啊，做不出来了

我想把DBEdit里的数据添加到数据库中，我刚学，找不出出错原因，高手帮我看看呢
try
    with DataModuleADO.ADOQuery1 do
    begin
      SQL.Clear;
      SQL.Add('update set Name=:Name,Author=:Author,'+
              'OutDate=:OutDate,Cost=:Cost,Press=:Press'
              'where Code=:Code');
      Parameters.ParamByName('Code').value := ComboBox1.Text;
      Parameters.ParamByName('Name').value := DBName.DataField;
      Parameters.ParamByName('Author').value := DBAuthor.DataField;
      Parameters.ParamByName('Press').value := DBPress.DataField;
      try
        Parameters.ParamByName('OutDate').value := StrToDate(DBOutDate.Text);
      except
        MessageDlg('参数<出版时间>设置错误',mtError,[mbok],0);
        Exit;
      end;
      try
        Parameters.ParamByName('Cost').value := StrToFloat(DBCost.Text);
      except
        MessageDlg('参数<价格>设置错误',mtError,[mbok],0);
        Exit;
      end;
      ExecSQL;
    end;
    TabSheet2.Show;
  except
      MessageDlg('修改失败',mtError,[mbok],0);
      Exit;
  end;
     MessageDlg('修改成功',mtInformation,[mbok],0);