Membuat Combobox Auto Complete Di VB.NET

Setelah beberapa hari yang lalu saya memposting tentang Membuat Textbox Auto Complete Di VB.NET, Kali ini saya akan memposting tentang Membuat Combobox Auto Complete Di VB.NET,
sebenarnya caranya hampir sama seperti Membuat Textbox Auto Complete Di VB.NET yang harus dilakukan yaitu melakukan query select untuk mendapatkan data dari database lalu meletakan data ke datatable setelah itu membinding data dari datatable ke combobox,

Langkah - langkah Membuat Combobox Auto Complete Di VB.NET

1, Buatlah sebuah database dengan nama latihan

2. Buat sebuah table dengan script dibawah ini

create table siswa (
nis varchar(15) not null primary key,
nama varchar(50) not null,
alamat text not null
)

3. Buatlah sebuah project di visual studio

4. Tambahkan sebuah combobox ke dalam form tersebut,dan atur tata letaknya seperti gambar dibawah ini

5. Klik 2 kali pada form tersebut dan ketikan Imports System.Data.SqlClient

6. Pada event Form_Load ketikan script dibawah ini

 'mendeklarasikan variable
        Dim cmd As SqlCommand
        Dim adapter As SqlDataAdapter

        'menyiapkan koneksi database
        Using conn As New SqlConnection("Data Source=Kanzato;Initial Catalog=latihan;Persist Security Info=True;User ID=sa; Password=root123")
            'menyiapkan sqlcommand
            cmd = New SqlCommand("select nama from siswa order by nama asc", conn)
            'menyiapkan data adapter
            adapter = New SqlDataAdapter(cmd)
            'mendeklarasikan dt sebagai datatable
            Dim dt As New DataTable
            'mengisi data dari sqldataadapter ke datatable
            adapter.Fill(dt)

            'binding data ke combobox
            ComboBox1.DataSource = dt
            ComboBox1.DisplayMember = "nama"
            ComboBox1.ValueMember = "nama"
            'set property autocompletemode menjadi suggest append
            ComboBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend
            'set property autocompletesource menjadi listitems
            ComboBox1.AutoCompleteSource = AutoCompleteSource.ListItems
        End Using