Long Memo Field $ Query Fails

Hello,

I have a database with approx 20K records with 10 fields. out of this
field set one field is Memo field.

the database is index on ID not on the Memofiled.

I am querying using the $ this works upto a perticular length of the
memo field text. After that it is not finding.

the Size of memo fields is approx 11K to 80K in size.

CAN ANY ONE SUGGEST/HELP WHAT COLD BE THE PROBLEM.

Thanks in advance.

Vallat



CODE :
   Dim badExpr
        If UCase(fldNode.Attributes("Type").Value) = "FTEXT" Then
            badExpr = "'" & SetText(txtSearchTems.Text) & "' $ " & "D_"
& fldNode.Attributes("DBFN").Value
        Else
            badExpr = "'" & SetText(txtSearchTems.Text) & "' $ " &
fldNode.Attributes("DBFN").Value
        End If

        Dim expr = expr4parse(DATA.CB.db, badExpr)
        Dim rcl& = code4memSizeMemoExpr(DATA.CB.cb&, 2048)
        Call Query(DATA.CB.db, badExpr, "")



-----------
Sub Query(ByVal dbf As Long, ByVal expr As String, ByVal order As
String)
        Try
            Dim rc As Integer
            Dim relation As Long                         'RELATE4
pointer
            relation = relate4init(dbf)           'Initialize the
relation/query

            If relation <> 0 Then
                'Set query condition and sort order
                rc = relate4querySet(relation, expr)
                rc = relate4sortSet(relation, order)
                rc = relate4top(relation)                    'First
record

                LoadTOC(DATA.CB.db, relation)

                rc = relate4free(relation, 0)
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

end sub