LPARAMETERS tcTable LOCAL loRS, lnVal tcTable = ALLTRIM(UPPER(tcTable)) *Get recordset loRS = this.GetRecordSet("SELECT Id FROM NextId WHERE Table = '" + tcTable + "'", 3) *Up ID loRS.Fields("Id").Value = loRS.Fields("Id").Value +1 loRS.Update() lnVal = loRS.Fields("Id").Value loRS.Close() *Return next id RETURN lnValThe GetRecordSet() Method also sets up the LockType property with the 2nd parameter (3).