Visual Basic - busqueda con like

hola amigos deseo realizar una busquedad que me encuentre una palabra o caracter en cualquier parte del parrafo secuencialmente utilizo esta funcion

Public Function frmcie10busca(ByVal nom As String) As ADODB.Recordset

Set frmcie10busca = cn.Execute("select CODIGO as Codigo ,NOMB as Descripción_de_la_Enfermedad from FCIE10" & _
" WHERE (NOMB LIKE '" & Trim(nom) & "%')")

End Function

es todo gracias

Si tienes que buscarla en todo el párrafo cualquiera sea su ubicación fijate de hacer: "NOMB LIKE '%" & Trim(nom) & "%'"

Cecilia Idola!!!! hace horas que buscaba la solucion al problema!!!
Gracias!