[VB.NET] Recuperare testo e value da una combo?

[Peter_Pan]

Salve ho il seguente codice per caricare i dati in una combo:

Dim cmdTeges As SqlCeCommand = New SqlCeCommand("SELECT * FROM 
TIPOLOGIASTRUTTURALE ORDER BY TST_Codice", cnTeges) 
Dim drTeges As SqlCeDataReader 
drTeges = cmdTeges.ExecuteReader() 

While drTeges.Read() 
                cmbTipStrutturale.Items.Add(drTeges("TST_Codice") & " - 
" & drTeges("TST_Descrizione")) 
                cmbTipStrutturale.ValueMember = 
CType(drTeges("TST_IdTipologia"), Guid).ToString() 
            End While

poi al clik di un pulsante devo farmi restituire il valore della combo
e il testo:

MsgBox(cmbTipStrutturale.Text & vbCrLf & cmbTipStrutturale.ValueMember)

il testo me lo recupera ma come valore mi restituisce l'ultimo valore
della tabella??
Come lo faccio funzionare??
Dimenticavo è per compact framework ma dovrebbe essere simile

[raffaeu]

SelectedValue ...

SelectedItem ...

SelectedIndex

[Peter_Pan]

non ho capito bene il tuo consiglio, credo che quando inserisco i value ciclo sempre sul un item, vorrei potergli dire una cosa del genere:

cmbTipStrutturale.ValueMember(i) = 
CType(drTeges("TST_IdTipologia"), Guid).ToString()

perchè secondo me scrive sempre sullo stesso valore

[raffaeu]

Guarda che se usi il datareader devi

1-creare una classe che rappresenta i tuoi dati
2-creai un arraylist con questa classe ad ogni loop del dr
3-assegni come dataSource l' arraylist
4-prelevi i dati tramite casting esplicito

Se hai bisogno di codice chiedi ...