Create Table SuaTabela (Codigo N (8)) Index On Codigo Tag Codigo . . . Select SuaTabela Set Order To Codigo Go Bottom If Eof () nMaxCodigo = 0 else nMaxCodigo = Codigo endif