SoloCodigo

Bueno muchachos podria alguien darme una pista de como seleccionar de un color cualquiera automaticamente una columna determinada y sus filas respectivas en un msflexgrid recorriendo todas las filas desde un recordset de ado?

tengo un cuadro de texto que busca por nombres a los clientes y automaticamente los registros coincidentes aparecen en el msflexgrid, hasta ahy todo bien pero completar la idea es como al momento de buscar atravez del campo nombre se ponga de un color  (ejemplo verde) la columna nombre y todas las filas respectivas de ese campo.

Espero me den una mano.  

Que tal foro....... hace ya 2 meses que halle la solucion a la inquietud que les planteaba pero por razones de mucho trabajo recien logro tomarme un tiempo para hacerles llegar el codigo que quizas lo necesiten o pronto requeriran

'se supone que por aqui viene un recordset
If Len(Phonenumber) > 0 Then
         .Rows = RS.RecordCount + 1
            For i = 1 To RS.RecordCount
                .Row = i
                .Col = 3
                .CellBackColor = &HC0C0FF
                .Text = RS!cust_id
                CustID = .Text
                ' Y sigo poniendo todo los campos que deseo
                .Col = 0
                If Not IsNull(RS!cust_id) Then .Text = RS!cust_id
                .Col = 1
                If Not IsNull(RS!cust_salutation) Then .Text = RS!cust_salutation
             RS.MoveNext
              Next i
        ElseIf Len(Text3) > 0 Then
            .Rows = RS.RecordCount + 1
                For i = 1 To RS.RecordCount
                    .Row = i
                    .Col = 2
                    .CellBackColor = &HC0FFC0
                    .Text = RS!cust_id
                    CustID = .Text
                 'Igual aqui sigo poniendo todos los campos que deseo
                    .Col = 0
                    If Not IsNull(RS!cust_id) Then .Text = RS!cust_id
                    .Col = 1
                    If Not IsNull(RS!cust_salutation) Then .Text = RS!cust_salutation
                   -----
                   -----          
                    RS.MoveNext
                Next i
        End If
    End If

Cualquier cosa consulten, siempre es bueno aprender de todos.

ZetaPeru