Un ComboBox molto bastardo !!!!!!!!!!!!!

[race2]

Ho scritto il seguente codice:

Private Sub btnCreaCategoria_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreaCategoria.Click

conn.Open()

Dim comm1 As New SqlCommand("SELECT * FROM Categorie", conn)
Dim read As SqlDataReader
read = comm1.ExecuteReader

While read.Read()

cmb.Items.Add(read("Categoria"))
a = read("Categoria")

End While

conn.Close()


End Sub




Private Sub cmb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb.SelectedIndexChanged

MessageBox.Show(a)

End Sub

E' un ComboBox il quale viene implementato dei suoi Items da un Database,

al momento della selezione dell'Item "cmb_SelectedIndexChanged", deve visualizzare un MessageBox.Show(a), "a" sarebbe la variabile che associo a read(), " a = read("Categoria") " in modo che ad ogni ciclo di While gli associa un valore differente che trova nel Database.

I problemi sono 2:

1)Ogni volta che clicco nel bottone "btnCreaCategoria_Click" il ComboBox non mi si svuota e quindi gli Item mi si aggiungono a quelli gia stampati prima, se inserisco un "cmb = Nothing" al secondo click mi da errore.

2)Nell'evento "cmb_SelectedIndexChanged" mi da la finestrina di dialogo MessageBox.Show(a) con visualizzato sempre l'ultimo Item e mai quello che seleziono io, dato che il While valorizza sempre la solita variabile poi mi stampa l'ultima valorizzata.

Come posso scampare a questi due problemi???