Combo

Hola, como estas, ojalas me puedas ayudar con el siguiente problema, tengo el siguiente código.
Private Sub Cmb_Sub_Click()
Impu = "SELECT Sub FROM Imputaciones WHERE NumSub = '" & Cmb_Sub.List(Cmb_Sub.ListIndex) & "'"
Set Adors = Adocn.Execute(Impu)
If Adors.EOF Then
MsgBox "Registro No Encontrado", vbCritical, "¡ATENCION!"
Limpiar Me
Cmb_Usuario.SetFocus
Else
Lbl_NomSub.Caption = Adors.Fields(0)
End If
DataVarios.DatabaseName = dbRuta
Set DB = OpenDatabase(dbRuta)
Set rs = DB.OpenRecordset("SELECT DISTINCT NumItem FROM Imputaciones WHERE NumSub = '" & Cmb_Sub & "'", _
dbOpenSnapshot)
rs.MoveFirst
Do While Not rs.EOF
Cmb_Item.AddItem rs!NumItem
rs.MoveNext
Loop
rs.Close
DB.Close
End Sub
Resulta que al cambiar el dato al combo me agrega al final de la lista del otro combo los datos nuevos, yo lo que quiero es que borre esos datos y muestre solo los nuevos datos...
De antemano muchas gracias...