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

رد متأخر:

الكود:ضعة في نفس الحدث.

Private Sub TextBox1_Changed(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.ClientSizeChanged
If con.State = ConnectionState.Closed Then
con.Open()
End If
Dim cmd As New OleDbCommand("SELECT الحقل FROM الجدول", 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()
TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
TextBox1.AutoCompleteCustomSource = col
TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest
End Sub