[VB6] Recuperare record selezionato in MSFlexGrid

[maximum]

Partendo dal presupposto che la tua grid abbia le colonne:

MESE
SETTIMANANUMERO
DAL
AL
AFFLUENZA
VISITEPROPOSTE
SCONTRINOMEDIO
RICHIESTEPRODOTTI
RAPPORTOCLIENTELA 

che riempi già con il primo blocco di codice che hai postato all'inizio, ti basta fare semplicemente:

Private Sub GrdTabelle_DblClick()
    MESE.Text = tuaGrid.TextMatrix(tuaGrig.Row, tuaGrig.Col)
    SETTIMANANUMERO.Text = tuaGrid.TextMatrix(tuaGrig.Row, tuaGrig.Col + 1)
    DAL.Text = tuaGrid.TextMatrix(tuaGrig.Row, tuaGrig.Col + 2)
    AL.Text = tuaGrid.TextMatrix(tuaGrig.Row, tuaGrig.Col + 3)
    AFFLUENZA.Text = tuaGrid.TextMatrix(tuaGrig.Row, tuaGrig.Col + 4)
    VISITEPROPOSTE.Text = tuaGrid.TextMatrix(tuaGrig.Row, tuaGrig.Col + 5)
    SCONTRINOMEDIO.Text = tuaGrid.TextMatrix(tuaGrig.Row, tuaGrig.Col + 6)
    RICHIESTEPRODOTTI.Text = tuaGrid.TextMatrix(tuaGrig.Row, tuaGrig.Col + 7)
    RAPPORTOCLIENTELA.Text = tuaGrid.TextMatrix(tuaGrig.Row, tuaGrig.Col + 8)
End Sub 

dove:

tuaGrid --> sarà il nome dell'oggetto flexgrid che stati utilizzando.

Spero di esserti stato di aiuto.