Sintaxe de busca

[marcos.lavorato 0]

Olá para todos. Estou conseguindo fazer uma busca pelo ADO, porém queria mudar para que fosse feitom se houver tanto no meio qto no final do valor de busca, sem ser exatamente. Meu código.

vCod = Text37.Textcompodebusca = Combo3.Textrecordset1.Find "" & compodebusca & "='" & vCod & "'", adSearchForward

[Luizgrs 0]

É só deixar assim:

recordset1.Find "" & compodebusca & " like '%" & vCod & "%'",adSearchForward

o % funciona como um *.

[marcos.lavorato 0]

GRATO