Ho un problema con questo codice di ricerca

codice:
List1.Clear
adoPrimaryRS.MoveFirst

On Error GoTo LocalErr
    Dim cerca As String
    cerca = InputBox("CERCA UN TERMINE DEL TUO SOGNO ", "termine")
    If Len(Trim(cerca)) > 0 Then
        If adoPrimaryRS.BOF = False And adoPrimaryRS.EOF = False Then
          mvBookMark = adoPrimaryRS.Bookmark
       End If
        cerca = "termine='" & UCase(Trim(cerca)) & "'"
        adoPrimaryRS.Find cerca
       
        If adoPrimaryRS.EOF Then
            If mvBookMark > 0 Then adoPrimaryRS.Bookmark = mvBookMark
            MsgBox "Ricerca Fallita ", vbInformation + vbOKOnly, "Find"
            Else
             List1.AddItem "  " & txtFields(1) & " " & txtFields(2)
            
               
        End If
    End If
    Exit Sub
LocalErr:
    MsgBox Err.Description


praticamente cerca in un campo dei termini

i problemi che ho sono due

1) devo scrivere un termine esatto
2) si ferma al primo termine


esempio :
______________
campo
______________

zuppa di pesce

zuppa

pesce nella zuppa




devo ricercare " ZUPPA"

in effetti mi cerca e si ferma a zuppa e la inserisce nella lista

pero' io vorrei se possibile che mi trovasse anxhe gli altri termini con la parola zuppa



grazie spero che mi diate na mano


cordiali saluti