Avendo questo codice:

codice:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cn As New MySqlConnection("database=miodb")
        cn.Open()
        Dim cmd As New MySqlCommand("select * from clienti", cn)
        Dim dr As MySqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
        Do While dr.Read
            ListBox1.Items.Add(dr("cognome"))
            ListBox1.ValueMember = dr("idclienti")
        Loop
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
        MsgBox(ListBox1.SelectedValue)
    End Sub

xkè quando clicco su un qualsiasi elemento della listbox non mi visualizza il relativo valore?



Grazie