compo box

В една форма за въвеждане ми се получава грешка. В compo box, имам стойности 1 и 2, но след пълното въвеждане на формата изчиствам я и при следващо въвеждане имам стойности 1,2,1,2 / т.е. удвояват се/ при следващо изчистване 1,2,1,2,1,2 утрояват се и все така. Моля кажете ми къде бъркам, а ето и част от кода

Private Sub UserForm_Initialize()
kol.Value = ""
punkt.Value = ""
Tdate.Value = ""
With cboinspektor
.AddItem "1"
.AddItem "2"
End With
cboinspektor.Value = ""
txtPlosht.Value = ""
..............................

Private Sub cmdClearForm_Click()
Call UserForm_Initialize
End Sub

ComboBox1.AddItem "1"
добавя елемент в списъка.


ComboBox1.Clear
Премахва всички елементи от списъка.


Щирлиц

Private Sub UserForm_Initialize()
kol.Value = ""
punkt.Value = ""
Tdate.Value = ""
With cboinspektor
.AddItem.Clear ' изчистване на предишните стойности
.AddItem "1"
.AddItem "2"
End With
cboinspektor.Value = ""
txtPlosht.Value = ""
..............................

Private Sub cmdClearForm_Click()
Call UserForm_Initialize
End Sub

P.S. В момента ти изпращам VB books на пощата:)

blagodera wi mnogo poluchi se shte cherpia