buscar por campo en msflexgrid

[osrohe]

Aqui tienes otra idea,,,
como ya tu cargaste los datos de tu tabla o consulta al msflexgrid, pon un caja de texto que tendra nombre txtbuscar.
Yo pongo como referencia la columna dos, tu la puedes cambiar dependiendo con que campo deseas realizar la busqueda.

Private Sub txtbuscar_Change()
Dim Pos As Integer, i As Integer

With MSFEMPLEADOS
.Col = 2
For i = 1 To .Rows - 1
.Row = i
Pos = InStr(UCase(.Text), UCase(txtbuscar.Text))
If Pos = 1 Then
.ColSel = 21
.TopRow = 1
Exit For
End If
Next i
End With
End Sub

Este para cuando lo hayas localizado con la direccional pases de la caja de texto ala fila del msflexgrid que tiene el valor buscado.

Private Sub txtbuscar_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then
MSFEMPLEADOS.SetFocus
End If
End Sub

Espero te sirva.
Att Osrohe.