Estou usando o seguinte código para selecionar uma linha do grid.

 

Private Sub Grid1_Click()
Dim ilinha As Integer
a = grid1.Row

  grid1.FillStyle = flexFillRepeat
  For ilinha = 1 To grid1.Rows - 1
     With grid1
       .Row = ilinha
         'Seleciona a partir da primeira coluna
         .Col = 0
         'Seleciona até a última coluna
         .ColSel = .Cols - 1
         'Aplica a cor
         .CellBackColor = &HFFFFFF
         .CellForeColor = &HC00000
     End With
  Next
        
         grid1.Row = a
         'Seleciona a partir da primeira coluna
         grid1.Col = 0
         'Seleciona até a última coluna
         grid1.ColSel = grid1.Cols - 1
         'Aplica a cor
         grid1.CellBackColor = &HFF&  'cor selecionada
         grid1.CellForeColor = &HFFFFFF
         grid1.FillStyle = flexFillSingle

End Sub

 

 

 

With grid1
 .col = 2 'coluna da data
 For ilinha = 1 To grid1.Rows - 1
       .Row = ilinha

        if cdate("29/05/2006") > cdate(.text) then 'se a data for menor do q 29/05/2006
         .ColSel = .col 

         'Aplica a cor
         .CellBackColor = &HFFFFFF
         .CellForeColor = &HC00000

       endif
  Next
End With

tenta e veja se dá certo...

 

qq coisa é só postar

 

t+