Visual Basic.NET - COMBOS

hola necesito ayuda con este codigo (el monento de seleccionar un item del combo necesito que me llene la caja de texto de valor unitario que esta en la base de datos)

Gracia


Dim objHONORARIOS As New CLSCUENTA_HONORARIOS
Dim objdatosset As New DataSet


Try
cbbcodigo_honorarios.DataSource = objHONORARIOS.consultarhonorarios.Tables(0)
cbbcodigo_honorarios.DisplayMember = "NOMBRE_HONORARIOS"
cbbcodigo_honorarios.ValueMember = "codigo_honorarios"
Me.TXTVALOR_UNITARIO.Text = Me.cbbcodigo_honorarios.Items.
Catch ex As Exception
MessageBox.Show("Error al llenar en la consulta")
End Try

Hola!!!
Bueno no sé si entendí bien tu problema pero prueba con esto:

En el evento:
combobox_SelectedIndexChanged
Me.txtvalor.Text = Me.cbbcodigo_honorarios.SelectedItem("valorhonorario")

Cualquier cosa aquí andamos..
Saludos!!
Besos!!!