Visual Basic.NET - Consultas

Hola a todos tengo un prroblema necesito cuando seleccione un codigo en un combobox en visual basic .net me llame el nombre del producto y el valor para se guardados en otra tabla le agrazdesco cualquier colaboracion

Este ejemplo sencillo, llena un combobox con datos de una tabla, al seleccionar un item del combo me devuelve datos concernientes al codigo selecccionado

Imports System.Data.SqlClient

Public commActSel As New SqlClient.SqlCommand("Select * from Actividades", Con)
Public AdpActividades As New SqlClient.SqlDataAdapter
Public dsetActividades As New DataSet


'evento load

Con.Open()
commActSel.ExecuteNonQuery()
AdpActividades.SelectCommand = commActSel
dsetActividades.Clear()
AdpActividades.Fill(dsetActividades, "Actividades")
cboActividades.DataSource = dsetActividades.Tables(0)
cboActividades.DisplayMember = "NombreActividad"
cboActividades.ValueMember = "IdActividad"
cboActividades.SelectedIndex = 0
con.close

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub cboActividades_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboActividades.SelectionChangeCommitted
For x As Int32 = 0 To dsetActividades.Tables(0).Rows.Count - 1
If dsetActividades.Tables(0).Rows(x).Item("IdActividad") = cboActividades.SelectedValue Then
MessageBox.Show(dsetActividades.Tables(0).Rows(x).Item("NombreActividad").ToString)
End If
Next
End Sub