cSQLString = "Update Pecas_Parm Set PD_ExpLiPC = PD_ExpLiPC + 1; Select PD_ExpLiPC From Pecas_Parm; Commit" SqlExec (nHandle, cSQLString, CurResult) nPD_ExpLiPC = CurResult.PD_ExpLiPC