primeiro vc tem que da o select na tabela e prencher um datatable
dim dt as datatable = funçãoQueRetornaTabela("Select * from tabela")
combobox.DisplayMember = "nome da coluna que ira exibir o text"
combobox.datasource = dt
ai no evento do SelectedIndexChanged do combobox
textbox.text = combobox.text