llOK=.oCodZonas.SAVE(.oRS0) Layer case toRS.LockType = adLockBatchOptimistic .oConnection.BeginTrans() toRS.ActiveConnection = .oConnection toRS.UpdateBatch() if .lErrorOccurred .oConnection.RollbackTrans() toRS.CancelBatch() else .oConnection.CommitTrans() endif .lErrorOccurred toRS.ActiveConnection = .NULL.Joao