[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