[اسامه الهرماوي]

اخي انا استخدم هذا الكود...
وهو لا يكرر القيم ...
غير مكان ال combobox1 بالسم التيكست المرد الاقتراح فية..
واسم الجدول واسم العمود وشكرا..

كود :

Private Sub ComboBox1_ClientSizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.ClientSizeChanged
       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       Dim cmd As New OleDbCommand("SELECT المستلف FROM pasenes", con)
       Dim ds As New DataSet
       Dim da As New OleDbDataAdapter(cmd)
       ds.Clear()
       da.Fill(ds, "list")
       Dim col As New AutoCompleteStringCollection
       Dim i As Integer
       For i = 0 To ds.Tables(0).Rows.Count - 1
           col.Add(ds.Tables(0).Rows(i)(0).ToString())
       Next
       con.Close()
       ComboBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
       ComboBox1.AutoCompleteCustomSource = col
       ComboBox1.AutoCompleteMode = AutoCompleteMode.Suggest
   End Sub