تعبئة الكمبوبوكس بدون تكرار

السلام عليكم

اريد عند كتابة الاسم الأول في الكمبوبوكس يظهر جميع الاسماء التي تبتدي بالاسم اللي ادخلتة في الكمبوبوكس بدون تكرار وتفتح الكمبوبوكس لوحدها اول مدخل الاسم المراد

هذا هو الكود اوضعتة في حدث change بتاع الكمبوبوكس ولكن بتظهر الاسماء متكررة

Dim rs As New ADODB.Recordset
Dim SQL As String
SQL = "select * from tabel WHERE NameField like'" & Combo1.Text & "%' order by NameField"
rs.Open SQL, db, adOpenStatic, adLockPessimistic
cmbsearch.Clear
Do While Not rsE.EOF
Combo1.Text .AddItem rs("NameField")
rs.MoveNext
Loop
rs.Close