Try

SELECT optwords from smltbl ;
  WHERE smltbl.opttitle = 'APPR_CD' ;
    AND smltbl.optwords like 'REJ%' ;
  into cursor cSource
thisform.text1.value = cSource.optwords

>lcSource = "SELECT optwords from smltbl ;
>WHERE smltbl.opttitle = 'APPR_CD' ;
>AND smltbl.optwords like 'REJ%' ;
>into cursor cSource"
>
>&&How can i show the result of the query in the text box
>&&I am doing this but nothing is happening.
>
>thisform.text1.value = lcSource
>