Which line raises the error message?

>Hi,
>
>Any Ideas Why the code below is giving me a type mismatch error ? Thanx for any help recieved.
>
>Bobby
>
>
>LOCAL ldDate,liSitting
>
>ldDate=THISFORM.txtBox_date.VALUE
>liSitting=THISFORM.ccombobox1.VALUE
>
>SELECT ehrbt
>LOCATE
>SCAN FOR BETWEEN(ldDate,from_date,to_date) AND !EMPTY(lisitting)
>
> SELECT 0
> SELECT *;
> FROM ehrbb ;
> WHERE ehrbb.tableid=ehrbt.tableid .AND. ehrbb.sittingid=liSitting .AND. ehrbb.book_date=ldDate ;
> INTO CURSOR tmpBook
> IF _TALLY>0 && have booking
> MESSAGEBOX("Its working")
> THISFORM.clistbox1.ADDITEM(TRANSFORM(ehrbt.tableid))
> THISFORM.clistbox1.ADDLISTITEM(ehrbt.t_description,THISFORM.clistbox1.NEWITEMID,2)
> THISFORM.clistbox1.ADDLISTITEM(ehrbt.special_req,THISFORM.clistbox1.NEWITEMID,3)
> &&Thisform.Refresh
> ELSE
>
> MESSAGEBOX("Nothing There")
>
> ENDIF
>
> SELECT ehrbt
>ENDSCAN