Llena un combobox con una tabla

Llena el combobox con el contenido de una tabla.

Dim Ds As New DataSet
Dim Da As New SqlClient.SqlDataAdapter("select * from TABLA", Conexion)
Da.Fill(Ds, "TABLA")
Dim miDataView As DataView = New DataView(Ds.Tables(0))
Dim contador As Integer'ordena el contenido de la tabla tomando el campo1
miDataView.Sort = "CAMPO1"
For contador = 0 To miDataView.Count - 1
ComboBox1.Items.Add(miDataView(contador)("CAMPO1"))
Next