Cargar un Combo

[vicentecamesella]

colocas un if donde revisas si el recoret esta basio la sentencia es sencilla
WHERE idpelicula = [comillas simple]" & Text7.Text & " [comillas simple] and idestado=1"

luego debajo colocas un for donde digas que va desde 1 hasta rc.recordcount-1
en ese momento haces esto combo.additem rc!ejemplar

espero te sirva al menos eso entendi que es lo que querias si no es asi replantea mejor tu duda