حذف رکوردهای تکراری از combobox

[masoudcarpet]

ضمن تبریک سال نو
از دوستان عزیز خواهش میکنم راهنمائی فرمائید به کد زیر چه چیزی اضافه کنم تا رکوردهای تکراری برای لیست combobox1 اضافه نشود

While Adodc1.Recordset.EOF = False
Combo1.AddItem Text1.Text
Adodc1.Recordset.MoveNext
Wend

[vbhamed]

سلام


Dim x$

While Adodc1.Recordset.EOF = False
If InStr(x, Text1 & ",") = "" Then Combo1.AddItem Text1
x = x & Text1 & ","
Adodc1.Recordset.MoveNext
Wend
x = ""

[aidin1386]

بله، همون طور که دوست عزیزمون گفتند عمل کنید.