请帮分析一下以下代码数据丢失原因!

数据库.BeginTrans
Rea.Open "表", 数据库, adOpenStatic, adLockPessimistic
rea.add
rea.(0)="A"
rea.update
rea.add
rea.(0)="A1"
rea.update
rea.add
rea.(0)="A2"
rea.update
rea.close
数据库.Execute ("Insert Into 表(字段) values ('C'))
数据库.Execute ("Insert Into 表1(字段) values ('C'))
数据库.CommitTrans这个代码在用户那里以前都是正常的。最近常偶尔出现丢失 用rea 新增出来的数据。请问是怎么回事呀