Preencher combobox a partir da base de dados e passar valores pa textbox

[ricduarte]

Boas!

Mais uma vez venho em busca de ajuda.

É o seguinte: para o meu projeto final de curso pretendo fazer orçamentos e para facilitar a inserção de dados no orçamento, sugeriram-me preencher os dados através de combobox mas tenho dois problemas:

1º - não sei como preencher as combobox através da base de dados e à medida que se ia adicionando dados, a combobox ia atualizando;

2º - depois de selecionado o valor, queria que este passa-se para uma textbox.

Será que me podem ajudar?

[NunoDinis]

Preencher um combobox:

       Dim SqlCursos As String = "QUERY"
    Dim dt As New DataTable
    Dim adapter As New SqlDataAdapter
    conexaoModulos.Open() ' -- Dim conexaoModulos As New SqlConnection(My.Settings.escolaBDConnectionString1())
    adapter.SelectCommand = New SqlCommand(SqlCursos, conexaoModulos)
    adapter.Fill(dt)
    conexaoModulos.Close()
    'Insere os dados no combobox
    With cbboxTurma 'Identifica o combo
	    .DataSource = dt
	    .DisplayMember = "Turma"
	    '.ValueMember = "codTurma"
    End With

Pasasr o valor selecionado para uma caixa de texto:

CaixaDeTexto.text = ComboBox.SelectedValue