como llenar un combobox

Hola a todos!, yo recien estoy empezando con la programacion en vb.net y cuando quice llenar unos texbox lo pude hacer sin mas problemas pero al quere llenar un combobox ahi surgio el gran problema, agradeceria puedan darme una mano, desde ya gracias!.

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'Llenar Textbox
Dim dt As New Essa2.DataSet1.PrestadorDataTable
Dim ta As New DataSet1TableAdapters.PrestadorTableAdapter
ta.BuscarPrestador(dt, txtId_prestador.Text)
txtNombreApellido.Text = dt.Item(0).Razon_social.ToString
txtEspecialidad.Text = dt.Item(0).Nombre.ToString


'Llenar Combobox
Dim Tp As Integer
Dim dt1 As New Essa2.DataSet1.PrestadorDataTable
Dim ta1 As New DataSet1TableAdapters.PrestadorTableAdapter
Tp = dt1.Item(0).Id_tipo_prestador.ToString
ta1.BuscarTipoPrestaciones(dt1, Tp)
ComboBox1.DisplayMember = "Nombre"
ComboBox1.ValueMember = "Id_tipo_prestacion"
ComboBox1.DataSource = dt1

End Sub

mmmm....no se que es lo que estas haciendo ahi, por lo que veo estas usando controles enlazados, yo lo cargo desde codigo ya que lo puedo controlar mejor y si te sirve aca te dejo el codigo para llenar un combo.

Dim MiConexion As New SqlConnection(Conexion)
Dim Rs As SqlDataReader
Dim Com As New SqlCommand
Dim SQL As String

SQL = "select CodCat,Descripcion from Categoria where Baja=0 order by 2"
cboCat.Items.Clear()
Com = New SqlCommand(SQL, MiConexion)
Rs = Com.ExecuteReader()

While Rs.Read()
cboCat.Items.Add(Rs("Descripcion"))
Microsoft.VisualBasic.Compatibility.VB6.SetItemData(cboCat, cboCat.Items.Count - 1, Rs("CodCat"))
End While
cboCat.Items.Add("TODAS")
Rs.Close()

Como vez utilizo un while, en este caso cargo las distintas categorias que tiene una empresa con sus distintos articulos. Espero sirva