Access - Buscar texto en un campo

REM  CON  ADO------------------------------------------

Dim rs As Recordset

Dim CON As Connection

Rem BUSCA

Set rs = CreateObject("ADODB.RecordSet")

Set CON = Application.CurrentProject.Connection

     C10 = ""

       C10 = C10 & "  SELECT * FROM  FICHAS "

       C10 = C10 & "  WHERE  [FICHAS]![denominacion]   Like   *" &    Forms![CONSULTA ]!deno  &  "*  "

   consulta = c10

        rs.Open consulta, CON, adOpenDynamic, adLockOptimistic

                       Do While rs.EOF = False

                           rs.MoveFirst

                            msgbox  "dato encontrado  " &  RS.Fields("denominación").Value

                            rs.MoveNext

                        Loop