Removing Items From Combobox!!

I have a combobox(cmb_periode) which I am populating with a querry when I select a value from another combobox(cmb_periodicite).

This all works well, but I have a problem when I want to remove the items from the combobox(cmd_periode).

Its a little wierd cos it deletes the first record and gives me an error saying that the 2 is not found.

My code is given below...

Private Sub cmb_periodicite_Click()

For hasItem = 0 To cmb_periode.ListCount - 1
cmb_periode.RemoveItem (hasItem)
Next hasItem

id_per = DLookup("id", "periodicite", "libelle='" & cmb_periodicite.Value & "'")
Set rs = CurrentDb.OpenRecordset("SELECT periode.libelle FROM periode where [periode].[id_periodicite]=" & id_per)
With rs
While Not .EOF
stringItem = rs!libelle
cmb_periode.AddItem (stringItem)
.MoveNext
Wend
End With
Form_indicateurMesure.Requery
rs.Close

End Sub