Mark,
Similar code is what we're adding. But it OUGHT to work!!!

Thanks,
Barbara

>Barbara,
>
>Have you tried cheating?
>
>

>lRet = seek(cSeek, 'MyTable', 'MyTag')
>
>If !IsNull(IRet) and type('lRet') = 'L' and lRet
>   End Transaction
>else
>   Rollback
>endif
>

>
>MInd you, that might not work either!!!!