[VB6] Selezionare ID da una combo di Tipo List

[maximum]

Con questo codice popolo una combo con due colonne, la prima riguarda l'anno, la seconda riguarda l'ID di riferimento:

Private Sub caricaAnni()

    Dim strsql As String
    Dim c As Integer
    
    numRecord = GetNumRecord()
    
    strsql = "SELECT Anno, Id_Anno " & _
             "  FROM Anni " & _
             " ORDER BY Anno desc "
    Set RS = Db.Execute(strsql)
    
    cmbAnno.Clear
    
    For c = 0 To numRecord - 1
        cmbAnno.AddItem Trim(RS(0))
        cmbAnno.List(c, 1) = Trim(RS(1))
        RS.MoveNext
    Next
    
    RS.Close
    Set RS = Nothing
    
End Sub

Ora io devo reperire all'evento change della comvo l'ID dell'anno che seleziono, come debbo procedere a livello sintattico?

Grazie anticipatamente.