[هاوي1995]

السلام عليكم

اليكم الكود لتعبئة الكومبوبوكس بس اريد كود لمنع الاسم المتشابهة من التكرار في الكومبوبوكس

كود :

Dim cmd As New OleDbCommand
       Dim reader As OleDbDataReader
       cmd = New OleDbCommand("select * from table1", cn)
       cn.Open()
       reader = cmd.ExecuteReader
       While reader.Read
           ComboBox1.Items.Add(reader.Item(2))
       End While

       cn.Close()
   End Sub

حيث distinct لم ينفع معي