Visual Basic - ComboBox

private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

    Dim connetionString As String = Nothing

    Dim connection As SqlConnection

    Dim command As SqlCommand

    Dim adapter As New SqlDataAdapter()

    Dim ds As New DataSet()

    Dim sql As String = Nothing

    connetionString = "Data Source=Josep-Pc\sqlexpress;Initial Catalog=Desplacaments;Integrated Security=SSPI;"

    sql = "select id, dieta from Conceptes"

    connection = New SqlConnection(connetionString)

    Try

        connection.Open()

        command = New SqlCommand(sql, connection)

        adapter.SelectCommand = command

        adapter.Fill(ds)

        adapter.Dispose()

        command.Dispose()

        connection.Close()

        ComboBox1.DataSource = ds.Tables(0)

        ComboBox1.ValueMember = "id"

        ComboBox1.DisplayMember = "dieta"

        Me.ComboBox1.SelectedValue.ToString()

    Catch ex As Exception

        MessageBox.Show("No es pot obrir!")

    End Try

End Sub

TextBox5.Text = ComboBox1.SelectedValue.ToString()

Private Sub showSelectedButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)

    Dim selectedIndex As Integer

    selectedIndex = comboBox1.SelectedIndex

    Dim selectedItem As Object

    selectedItem = comboBox1.SelectedItem

    MessageBox.Show("Selected Item Text: " & selectedItem.ToString() & Microsoft.VisualBasic.Constants.vbCrLf & _

                        "Index: " & selectedIndex.ToString())

End Sub