Visual Basic - Expertos en MSFlexGrid

Bueno, me perdonais por lo de "expertos" es que ya he hecho algunas preguntas en este foro y me contestan cualquier tonteria supongo que no se puede evitar.
La pregunta es la siguiente, en un MSFlexGrid que he cargado desde un recordset lo que quiero es que una vez que he introducido el dato en un TextBox me lo busque en todas las celdas el grid y si lo encuentra que me marque la celda y si no que salga un mensaje diciendo que no lo encontro.
Gracias por las posibles respuestas, espeo que sean serias.

No se si hay otra forma, pero se me ocurre una bastante manual. Usa ciclos

Puedes revisar todas las lineas q hay en una columna.

Ejemplo

flag = 0 'esta es la bandera q te dice si se encontro el dato o no
dato = text1.text
numr = flex.rows
numc = flex.cols

for X = 0 to numc
flex.col = X
for Y = 0 to numr
flex.row = Y
if trim$(dato) = trim$(flex.text)
'aqui busca las propiedades del flex para marcar la celda como tu quieres,
'aqui el flex esta posicionado en la celda q contiene tu dato.
flag = 1
end if
next
next

if flag = 0 then
msgbox "No se encontro el dato"
end if

Debe ser algo mas o menos asi, espero te sirva, bye ...

Bueno...
Si estás usando un recordset...lo que podrías hacer es otro recordset con los campos que deseas buscar y comparas el Campo con el dato del TextBox y preguntras algo asi
consql="select codigo from EMPLEADOS where codigo=' " & text1.text & " '
crears rs(creas el recordset) consql,bd
if rs.recordcount <>"" then
msgbox("código no existe")
else
(Aqui pones la función que hace que sombre el dato)No tecuredo exactamente pero búscalo
end if
end sub

bueno espero haberte dado alguna idea!!!

Suerte!!!

Gracias a los dos por contestar. El ejemplo de artidoro no me vale ya que quiero buscar por todos los campos de la tabla.
Probé el de maree y al principio me daba error en número de columna no válido, lo soluccioné restando 1 a numc y ya me funciona.
Por cierto, para marcar la celda una vez que lo ha encontrado:
MSFlexGrid1.CellBackColor = vbBlue
MSFlexGrid1.CellForeColor = vbWhite

Muchas gracias a ambos.