Combobox

[Lalybs]

Buenas tardes eh aquí con una nueva consulta: Tengo un text en el cual cargo un código de Pelicula, dependiendo el número del text se cargan las etiquetas en el combo, al seleccionar una etiqueta cambia de estado.. a no disponible, la idea es que desaparezca del combo una vez que se haya seleccionado y cargado en la base..
Este es el ejemplo que hice:

Private Sub text7_change()
Dim ry As New ADODB.recordset
ry.Open "SELECT * FROM Ejemplares WHERE idpelicula = " & Text7.Text & " And idpelicula = " & Text7.Text & " and idestado=1", con, adOpenKeyset, adLockOptimistic, adCmdText
While Not ry.EOF
Combo1.AddItem ry!Etiqueta
' Combo1.ListIndex = 0
ry.MoveNext
Wend
ry.Close
ry.Open "UPDATE Ejemplares SET Idestado=2 WHERE Etiqueta=" & "'" & Combo1.Text & "'"
End Sub
pero no lo esta quitando del combo. se agradece de ante mano.. Saludos!