Hi Neil

Just add the code for handling the second text field value to your exising code as shown below:

>

>LOCAL lcdesign
>
>DO CASE
>	CASE thisform.combo1.displayvalue='='
>           lcdesign="modacad.key3=thisform.text1.value"
>        CASE thisform.combo1.displayvalue='$'
>           lcdesign="modacad.key3$thisform.text1.value"              	
>ENDCASE


**************************************************************
*** Check the second field here
IF NOT EMPTY( ThisForm.text2.value )
  lcDesign = lcDesing + ' AND type = ' + ThisForm.Text2.Value
ENDIF
**************************************************************

>SELECT * ;
>FROM ("U:\Data\modacad.dbf") ;
>WHERE &lcdesign ;
>order BY mainkey ;
>INTO CURSOR crssearch
>