Datos De Un Campo De Una Tabla A Combobox

[sebaghost]

Dim Conection As SqlConnection = New SqlConnection(Conexion_)
Dim Consulta As SqlCommand
Dim Adaptador As SqlDataReader
Consulta = New SqlCommand("Select * From Origen ", Conection)

Conection.Open()
Adaptador = Consulta.ExecuteReader()
If Adaptador.HasRows Then
Do While Adaptador.Read
CB_Origen.Items.Add(Trim(Adaptador(1)))
Loop
Else
End If
Conection.Close()