报错查询过于复杂,出现在update语句

With IInfo
If .State = adStateOpen Then
   .Close
End If
   .Source = " SELECT * FROM  project where project_id = '" & Trim(project_id.Text) & "'"
   .Open
If .RecordCount <> 0 Then
  .Fields!Name.Value = Trim(name1.Text)
  .Fields!startdate.Value = Trim(startdate.Text)
  .Fields!enddate.Value = Trim(enddate.Text)
  .Fields!zone.Value = Trim(zone.Text)
  .Fields!street.Value = Trim(street.Text)
  .Fields!Road_Grade.Value = Trim(Road_Grade.Text)
  .Fields!road.Value = Trim(road.Text)
  .Fields!Area.Value = Trim(area1.Text)
  .Fields!descript.Value = Trim(descript.Text)
  .Fields!explain.Value = Trim(explain.Text)
  .Update
end if
end with
在以上的.Update出现错误~~~报错查询过于复杂
但在别一窗口下面的程序又没事,不明!!!!!!!!!
With saveC
If .State = adStateOpen Then
   .Close
End If
   .Source = " SELECT * FROM `general`where IDCODE = '" & Trim(txtIDCODE.Text) & " ' "
   .Open
   If .RecordCount <> 0 Then
          .Fields!Name.Value = Trim(txtNAME.Text)
          .Fields!zone.Value = Trim(zone.Text)
          .Fields!address.Value = Trim(txtADDRESS.Text)
          .Fields!street.Value = Trim(street.Text)
          .Fields!email.Value = Trim(txtEMAIL.Text)
          .Fields!Area.Value = Trim(area1.Text)
          .Fields!zipcode.Value = Trim(txtZIPCODE.Text)
          .Fields!tel.Value = Trim(txtTEL.Text)
          .Fields!fax.Value = Trim(txtFAX.Text)
          .Fields!REGISTER.Value = Trim(REGISTER.Text)
          .Fields!BELONGTO.Value = Trim(BELONGTO.Text)
          .Fields!BUSYSTAT.Value = Trim(BUSYSTAT.Text)
          .Fields!COMCODE.Value = Trim(txtCOMCODE.Text)
          .Fields!CONTROL.Value = Trim(CONTROL.Text)
          .Fields!OPENTIME.Value = Trim(txtOPENTIME.Text)
          .Fields!BOSS.Value = Trim(txtBOSS.Text)
          .Fields!STATSBOSS.Value = Trim(txtSTATSBOSS.Text)
          .Fields!REPORTER.Value = Trim(REPORTER.Text)
          .Fields!REPORTCODE.Value = Trim(REPORTCODE.Text)
          .Fields!STOCK.Value = Trim(STOCK.Text)
          .Fields!MOTHER.Value = Trim(MOTHER.Text)
          .Fields!STATSCODE.Value = Trim(txtSTATSCODE.Text)
          .Fields!STOCK_NAME.Value = Trim(STOCK_NAME.Text)
          .Fields!STOCK_CODE.Value = Trim(STOCK_CODE.Text)
          .Update
    End if
End with