[نبيل كونكت]

كود :

  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