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.