تكرار بيانات أسم فى الكمبو

بسم الله الرحمن الرحيم

عندى كمبو بيأخد بياناته من حقل * الحقل ده فيه بيانات متكرره مثلا أسم العميل أكتر مكن مره أنا عاوز الكمبو لما يتفتح ميظهرش من الا واحد من كل أسم متكرر

يعنى لو عندى عشرين أسم (أحمد) ميظهرش فى الكمبو غير أحمد واحد بس الكود اللى بستخدمه علشان أدى الكمبو بياناته هو

Combo2.clear
kot.MoveFirst
Do While Not kot.EOF
If Trim(kot("q1")) <> "" Then
Combo2.AddItem kot("q1")
End If
kot.MoveNext
Loop

وجزاكم الله خيرا