Auto Complete Mode di VB.net

Auto Complete Mode? Apa itu?

Begini jika kita buka google.com terus ketik kan misalnya windows, maka secara otomatis akan muncul juga di bawahnya kata-kata yang mirip. Contoh, windows 7, windows xp, windows vista dan lain-lain. Di vb.net juga ada. Ahhhh ribet jelasinnya. Lihat screenshot di bawah.

Sudah tahu kan maksud saya?
Berikut source codenya. Tapi sebelumnya harus buat dulu database-nya. Karena saya di situ membaca sebuah tabel di database (oledb-access 2003).
Selanjutnya buka vb 2008 dan ada 1 form dan 1textbox dan di panel properties-nya atur

AutoCompleteMode : SuggestAppend
AutoCompletesource : CustomSource

Kemudian masuk ke view lalu ikuti nih koding simple mudah-mudahan berguna.

Imports System.Data.OleDb
Public Class Form1
Inherits System.Windows.Forms.Form
Dim koneksi_db As String = “PROVIDER=Microsoft.Jet.OleDb.4.0; DATA SOURCE=db.mdb”
Dim con As New OleDbConnection(koneksi_db)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cari()
End Sub
Sub cari()

con.Open()
Dim sam_aquino As OleDbCommand = New OleDbCommand(“select * from mahasiswa “, con)
Dim pembaca As OleDbDataReader
pembaca = sam_aquino.ExecuteReader
If pembaca.Read Then
Do
TextBox1.AutoCompleteCustomSource.Add(pembaca(“nama”))
Loop While pembaca.Read

End If
con.Close()
End Sub
End Class

Jika sudah selesai, run form Anda.