Okay. Here it is:

* get the handle and get the @@identity number
lnSQLHandle = cursorgetprop('ConnectHandle', (lctable))
* requery the table with the identity parameter for this record
lnUpdated = sqlexe(lnSQLHandle, 'Select @@Identity', 'sqlresult')
If lnUpdated <= 0
msg = "Identity value was not found -- call a programmer now"
messagebox(msg, 0+16+0, "Identity Value Failure")
aerror(aSqlError)
list memory like aSqlError noconsole to print
else
oVar.PrimaryKey = sqlresult.exp
select (lctable)
lnUpdated = requery()
If lnUpdated <=0
msg = "Verification Requery Failed -- call a programmer now"
messagebox(msg, 0+16+0, "Validation Requery Error")
aerror(aSqlError)
list memory like aSqlError noconsole to print
else
endif
endif