EditingControlShowingの度にコンボボックスに値を入れているのはなんでなんだぜ？
なんか意図あるの？
Form1_Loadのほうで、
With DT
.Columns.Add("Display", GetType(String))
.Columns.Add("Value", GetType(Integer))
End With
の後ろにでも
Dim iCnt As Integer
For iCnt = 0 To 5
DT.Rows.Add(CType(iCnt, String), iCnt)
Next
を入れてやればEditingControlShowingの方の処理はいらないと思う。