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