Hi,

local inout,vari_o

inout = alltrim(thisform.txttofrm.value)

SELECT i_o FROM tofrmtbl WHERE tofrm = inout
AND DELETED() = .F. into cursor io
** And now:
vari_o = i_o
use in io
** Done.

...gerhard...