mmmm no me queda muy claro sebaghost tu ejemplo
lo estas creando dentro del evento asip
Código PHP:
Private Sub Combo1_Change()
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()
End Sub