程序提示:多步操作产生错误.请检查每一步的状态值

提示信息:EOleException with message'多步操作产生错误.请检查每一步的状态值.' 这是什么意思? 
unit Dm;interfaceuses
  SysUtils, Classes, DB, ADODB;type
  TDataModule1 = class(TDataModule)
    LotusConn: TADOConnection;
    PublicQuery: TADOQuery;
    Detail: TADOTable;
    DetailSource: TDataSource;
    PaySet: TADODataSet;
    PaySource: TDataSource;
    UserBasic: TADOTable;
    UserSource: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  DataModule1: TDataModule1;implementation{$R *.dfm}end.procedure TPayForm.BitBtn1Click(Sender: TObject);
begin
  with DataModule1.PublicQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add(Format('select * from yh_data where yhcode=''%s'' and month(use_time)=%d',
    [Trim(DBEditEh1.Text),MonthOf(DBDateTimeEditEh2.Value)]));
    ShowMessage(sql.Text );
    Open;
    if RecordCount=0 then
    begin
      ShowMessage('没有此用户本月的明细资料');
      Abort;
    end
    else
    begin
      showmessage(inttostr(FieldByName('SERNO').AsInteger));
      DataModule1.PaySet.FieldValues['REF_USENO']:=FieldByName('SERNO').AsInteger;
      DataModule1.PaySet.Post; //跟踪到这句出现提示
    end;
  end;
  self.Close;
end;