MSHFlexGrid problema con recordset sin registros

[chefo]

Aca esta el codigo no es tan largo.... lo que me sucede es que cuando actualizo el adodc con el recorset con registros puedo seleccionar perfectamente las filas... cuando el recorset del adodc no tiene registros para mostrar luego de que actualizo el adodc a un recordset con registros, estos se muestran en la fila pero no se los puede seleccionar...

Código:

Private Sub MSHFlexGridConfig()

With MSHFlexGrid1
    .Refresh
    .FormatString = "|COD|Nombre|Nº CUIT|Dirección|Localidad|Teléfono"
    .ColWidth(0) = 200
    .ColWidth(1) = 600
    .ColWidth(2) = 2500
    .ColWidth(3) = 1500
    .ColWidth(4) = 2000
    .ColWidth(5) = 1500
    .ColWidth(6) = 1230
    .Row = 0
    .ColSel = .Cols - 1
    .FillStyle = flexFillRepeat
    .CellFontBold = True
    
End With

End Sub

Private Sub Tabstrip1_Click()
    Dim i As Integer
    Dim Caption As String
    Dim CaptionTb As String
        
    i = Tabstrip1.SelectedItem.Index
    Caption = Tabstrip1.Tabs(i).Caption
    CaptionTb = "Select Clientes.COD_Cliente,Clientes.Nombre_Fiscal,Clientes.CUIT,Clientes.Direccion,Clientes.Localidad,Clientes.Tel1 From Clientes WHERE Nombre_Fiscal Like '" & Caption & "%'"

    Select Case Caption
        Case "*"
            Adodc1.RecordSource = "Select Clientes.COD_Cliente,Clientes.Nombre_Fiscal,Clientes.CUIT,Clientes.Direccion,Clientes.Localidad,Clientes.Tel1 From Clientes"
            Adodc1.Refresh
            MSHFlexGridConfig
        Case "#"
            Adodc1.RecordSource = "Select Clientes.COD_Cliente,Clientes.Nombre_Fiscal,Clientes.CUIT,Clientes.Direccion,Clientes.Localidad,Clientes.Tel1 From Clientes WHERE (Nombre_Fiscal Like '[0-9]%')"
            Adodc1.Refresh
            MSHFlexGridConfig
        Case Else
            Adodc1.RecordSource = CaptionTb
            Adodc1.Refresh
            MSHFlexGridConfig
    End Select
    
End Sub

No se a que le llamas llenado de datos???