[asemshahen5]

جرب هذا الكود و سينجح بإذن الله :

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox1.AutoCompleteMode = AutoCompleteMode.Suggest
        ComboBox1.AutoCompleteSource = AutoCompleteSource.ListItems
    End Sub
    Private Sub ComboBox1_Enter(sender As Object, e As EventArgs) Handles ComboBox1.Enter
        Dim CON As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\db.accdb"
        Dim DT As New DataTable
        DT.Clear()
        Dim DA As New OleDb.OleDbDataAdapter("SELECT * FROM intitulé where fami like '%" & ComboBox1.Text.Trim & "%'", CON)
        DA.Fill(DT)
        ComboBox1.Items.Clear()
        For Each row As DataRow In DT.Rows
            ComboBox1.Items.Add(row(1).ToString)
        Next
    End Sub