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

السلام عليكم ورحمة الله وبركاته

اريد التعديل بهذا الكود لمنع تكرار البيانات فى الكمبو بوكس بمعنى ان وجد اسم متكرر اكثر من مره فى الحقل يعرض واحدا فقط والكود كالتالى

On Error Resume Next
	Dim RS As New ADODB.Recordset
	Dim Sql As String
   Sql = "SELECT * FROM name_ser"
	Set RS = Cn.Execute(Sql)
	Dim nn As String
	Do Until RS.EOF
	   compony_name.AddItem RS.Fields("compony_name")
		RS.MoveNext
   Loop
	RS.Close
	Set RS = Nothing

وانا وضعت السؤال ده قبل ذلك وجربت كذا محاوله للكن للاسف لم تفلح الرجاء التعديل على نفس الكود

اشكركم جميعا

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