Ciao ragazzai, aiutatemi altrimenti butto queste maledette flex dal balcone...

Ho una tabella associata ad un DB.mdb con questo codice:

Private Sub ApriDataBase()
Dim RigaGrid As Integer
'Dim i
GrdTabelle.Rows = 1
Dim DB As Database
Dim rst1 As Recordset
Set DB = OpenDatabase("C:\SUPER EMAIL - SUPEROTTICA\DB\DB_MAIL.mdb")
Set rst1 = DB.OpenRecordset("SELECT DISTINCT ID, MESE, SETTIMANANUMERO, DAL, AL FROM VENDUTOSETTIMANALE")
Do While Not rst1.EOF
Dim i As Integer
With GrdTabelle
GrdTabelle.AddItem rst1.Fields("MESE")
ID.Text = rst1!ID
End With
rst1.MoveNext
Loop
rst1.Close
DB.Close
Exit Sub

End Sub


...e fin qui tutto bene, ora vorrei con la funzione Flex_DblClick selezionare una qualsiasi riga e "pescare" il relativo record-
Io sto usando questo codice ma mi restituisce sempre l'ultimo record:

Private Sub GrdTabelle_DblClick()
If SCEGLIRECORDFLEX.Text = "OK" Then
Dim RigaCliccata As Integer
Call EnableTrue1
'If GrdTabelle = "" Then Exit Sub
Dim rst1 As Recordset, DB1 As Database

On Error Resume Next
Set DB1 = OpenDatabase("C:\...\DB_VENDUTO.mdb")
Set rst1 = DB1.OpenRecordset("SELECT * FROM VENDUTOSETTIMANALE where MESE ='" & GrdTabelle & "'")
Do While Not rst1.EOF
ID.Text = rst1!ID
MESE.Text = rst1!MESE
SETTIMANANUMERO.Text = rst1!SETTIMANANUMERO
DAL.Text = rst1!DAL
AL.Text = rst1!AL
AFFLUENZA.Text = rst1!AFFLUENZA
VISITEPROPOSTE.Text = rst1!VISITEPROPOSTE
SCONTRINOMEDIO.Text = rst1!SCONTRINOMEDIO
RICHIESTEPRODOTTI.Text = rst1!RICHIESTEPRODOTTI
RAPPORTOCLIENTELA.Text = rst1!RAPPORTOCLIENTELA
rst1.MoveNext
Loop
rst1.Close
DB1.Close
End Sub

Vi prego aiutatemi
Claudio