Use Autocompletesource in textbox. Sample code:
Dim dt As New DataTable
Dim da As New OleDbDataAdapter("select * from Tablename", ocon)
da.Fill(dt)
Dim row As DataRow
TextBox1.AutoCompleteCustomSource.Clear()
For Each row In dt.Rows
TextBox1.AutoCompleteCustomSource.Add(row.Item(0).ToString)
Next