求救，我在学习李维的《Delphi5.x ADO/MTS/COM+》的第九章的程序实例中，编写的更新组件总是不好用，请各位帮帮忙，谢谢(100分)

出问题的代码
procedure TD_BOMObj.UpdateBomDatas(vDatas: OleVariant;
iMaxErrors: Integer;
var iErrorCount: Integer);
begin
try
DBProvider.ApplyUpdates(vDatas,iMaxErrors,iErrorCount);
SetComplete;
except
SetAbort;
end;
end;
出错现象：程序死掉，提示“根事务要确认，但事务中止了操作“
我将调用它的组件改为不需事务，则运行通过，但并未更新数据
苦恼中.....

这个问题我同事遇到过，我问一下。

up