Kali ini saya mau share cara mencari data menggunakan binding function di visual basic 2015 menggunakan database microsoft access. Binding function ini emang lebih mudah, tapi perlu banyak nulis kalau ingin menampilkan data ke textbox.Tentu saja saya menggunakkan MetroFramework untuk tampilan yang lebih kekinian, untuk Frameworknya silahkan download dimari

langsung saja, silahkan anda membuat form seperti berikut:
Untuk urutan nya MetroTextBox2 Berada pada ID dan seterusnya, dan MetroTextBox6 pada Search.
Keterangan:

ListBox1
MetroTextBox6 (Cari)
MetroTextBox1 (ID)
MetroTextBox2 (Nama)
MetroTextBox3 (NISN)
MetroTextBox4 (Kelas)
MetroTextBox5 (Alamat)

Lalu buatlah module dan masukkan script berikut:



Imports System.Data.OleDb
Module koneksi
    Public conn As OleDbConnection
    Public cmd As OleDbCommand
    Public ds As DataSet
    Public dr As OleDbDataReader
    Public da As OleDbDataAdapter
    Public bs As BindingSource
    Public lokasidata As String

    Public Sub konek()
        lokasidata = "provider=microsoft.jet.oledb.4.0;data source=db_biodata.mdb"
        conn = New OleDbConnection(lokasidata)
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
    End Sub
End Module


Klik dua kali pada form nya, lalu masukkan script berikut:



Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        konek()
        cmd = New OleDbCommand
        da = New OleDbDataAdapter("SELECT * FROM tbl_biodata", conn)
        ds = New DataSet
        da.Fill(ds, "tbl_biodata")

        ListBox1.DataSource = ds.Tables("tbl_biodata")
        ListBox1.DisplayMember = "nama"

        bs = New BindingSource
        bs.DataSource = ds.Tables("tbl_biodata")

        MetroTextBox1.DataBindings.Add("Text", bs, "idsiswa")
        MetroTextBox2.DataBindings.Add("Text", bs, "nama")
        MetroTextBox3.DataBindings.Add("Text", bs, "nisn")
        MetroTextBox4.DataBindings.Add("Text", bs, "kelas")
        MetroTextBox5.DataBindings.Add("Text", bs, "alamat")
        ListBox1.SelectedIndex = 0
    End Sub


Klik dua kali kembali pada listbox nya, lalu masukkan script berikut:



If Not IsNothing(bs) Then
            bs.Position = ListBox1.SelectedIndex
        End If


Terakhir pada tombol Cari masukkan script berikut:


bs.Filter = String.Format("Nama Like '*{0}*'", MetroTextBox6.Text)

Silahkan coba jalankan, jika berhasil berarti tidak ada masalah, untuk video nanti saya coba uploadkan di yutub. Sekian tutorialnya, semoga bermanfaat dan jika ada yang perlu di tanyakan silahkan berkomentar ya.