Visual Basic.NET - no logro Obtener valor de combo llenado con datatable

dtcombo.Columns.Add("campobd")

dtcombo.Columns.Add("Descripcion")

dtcombo.Columns.Add("tipo")

Dim dr As DataRow

dr = dtcombo.NewRow()

dr("campobd") = "idperfil"

dr("Descripcion") = "Codigo"

dr("tipo") = "numero"

dtcombo.Rows.Add(dr)

dr = dtcombo.NewRow()

dr("campobd") = "nombreperfil"

dr("Descripcion") = "perfil"

dr("tipo") = "texto"

dtcombo.Rows.Add(dr)

cbobuscarperfil.DataSource = dtcombo

cbobuscarperfil.ValueMember = "campobd"

cbobuscarperfil.DisplayMember = "Descripcion"

If Not TypeOf cbobuscarperfil.SelectedValue Is DataRowView Then

	' Referenciando el objeto DataRowView correspondiente

	' al elemento seleccionado en el control ComboBox.

	Dim row As DataRowView = DirectCast(cbobuscarperfil.SelectedItem, DataRowView)

	vatributo.gtipoatributo = row.Item("tipo").ToString

End If

'por si a alguien busca algo parecido