AdoServer - Optimistic concurrency ckeck failed

Hil all,

How can i solve this problem:

2 users updating a record in Sqlserver at same time:

Adoserver generate the error:
Error code: Optimistic concurrency check failed. The row was modified
outside of this cursor.....

I use adLockOptimistic.

the error is on oSrv:Commit()

this is my Init() code:
METHOD INIT(oClasse) CLASS ClipAdoServer
	LOCAL cTxtQuery AS STRING

	cTxtQuery:="select * from "+AllTrim(oClasse:cTabela);
		+" where "+
SELF:ListaCondicoes(oClasse:GetChaves(),oClasse:GetValChaves())

	SUPER:INit(cTxtQuery,POGetAppObject():oConexaoAdo,adOpenKeyset,
adLockOptimistic,adCmdText)

TIA
Paulo Oliveira