[نبيل كونكت]

كود :

  Private Sub txtlabel_MouseEnter(sender As Object, e As EventArgs) Handles txtlabel.MouseEnter
       cmd = New OleDb.OleDbCommand("select label from tab_pro", con)
       con.Open()
       Dim ds As OleDb.OleDbDataReader = cmd.ExecuteReader
       ds.Read()
       Dim gh As New AutoCompleteStringCollection
       gh = ds(0)
       txtlabel.AutoCompleteMode = AutoCompleteMode.SuggestAppend
       txtlabel.AutoCompleteSource = AutoCompleteSource.CustomSource
       txtlabel.AutoCompleteCustomSource = gh
   End Sub

[alma2]

كود :

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim da As New OleDb.OleDbDataAdapter("select label from tab_pro", con)
        Dim dt As New DataTable
        da.Fill(dt)
        Dim itms = dt.Rows.Cast(Of DataRow).Select(Function(x) x("label").ToString).ToArray
        Dim gh As New AutoCompleteStringCollection()
        gh.AddRange(itms)
        txtlabel.AutoCompleteCustomSource = gh
        txtlabel.AutoCompleteMode = AutoCompleteMode.SuggestAppend
        txtlabel.AutoCompleteSource = AutoCompleteSource.CustomSource

    End Sub