Concatenar colunas e apresentar na combobox

[Joffre Mota 0]

    Public Sub PreencheComboBoxCidade(ByRef cboCombo As ComboBox)
       Try
           Dim dt As New DataTable
           dt = dao.ConsultaCidades().Tables(0)
           With cboCombo
               .DisplayMember = "nome_Cidade"
               .ValueMember = "cod_Cidade"
               .DataSource = dt.DefaultView
               .SelectedIndex = 0
           End With
       Catch ex As Exception
           MsgBox(ex.ToString)
       End Try
   End Sub

 

Estou usando o código acima para preencher uma combobox.

Dentro da tabela cidades, possuo os campos Codigo, Nome e UF.

 

Como faço para concatenar na combobox o valor Nome e UF?

 

Minha idéia é apresentar ao usuário dentro da combobox o seguinte valor:

 

SÃO PAULO-SP

GOIÂNIA-GO

 

ou seja:

nome_Cidade - UF_Cidade

[quintelab 91]

Faz isso na sua query é mais fácil.

 

Abraços...