Boa tarde Gerson Porto se eu entendi sua dúvida corretamente...

segue abaixo código para pegar a linha e coluna do MsFlexGrid

' monta o cabeçalho do msFlexGrid

Private Sub fCab()
    With MSFlexGrid1
   
        .Font.Bold = True
        .Clear
        .Cols = 2 'Quantidade de colunas
        .Rows = 1 'Quantidade de linhas
        .Row = 0
   
        .Col = 0
       
        .Text = ""
        .ColWidth(.Col) = 0
        .CellAlignment = 1
       
        .Col = 1
        .Text = "Município"
        .ColWidth(.Col) = 6870
        .CellAlignment = 0

       
   End With
End Sub

'Função que monta o grid
Public Sub fCarrega_grid()
'monta o rs com os dados
    Dim X As Long
    If rsMunicipios.EOF And rsMunicipios.BOF Then
        Exit Sub
    End If
    Do While Not rsMunicipios.EOF
       With MSFlexGrid1
            .AddItem "", 1
           
            .TextMatrix(1, 0) = rsMunicipios.AbsolutePosition - 1 ' <--- posição do registro no banco de dados
            
            .Col = 1
            .CellFontBold = False
            .CellAlignment = 0
            .TextMatrix(1, .Col) = rsMunicipios.Fields(0)
           
            rsMunicipios.MoveNext
       End With
    Loop
End Sub