Fungsi Cari Data

1. Sub Cari()
2.         If cbKategori.Text = "No KTP" Then
3.   DataPembeli = Proses.ExecuteQuery("SELECT * FROM pembeli WHERE pembeli_nomor_ktp Like  '%" & txtCari.Text & "%'")
4.             If DataPembeli.Rows.Count = 0 Then
5.                 dgPembeli.DataSource = DataPembeli
6.                 txtCari.Focus()
7.             Else
8.              dgPembeli.DataSource = DataPembeli
9.             End If
10.         ElseIf cbKategori.Text = "Nama Pembeli" Then
11.    DataPembeli = Proses.ExecuteQuery("SELECT * FROM pembeli WHERE pembeli_nama Like  '%" & txtCari.Text & "%'")
12.             If DataPembeli.Rows.Count = 0 Then
13.   dgPembeli.DataSource = DataPembeli
14.                 txtCari.Focus()
15.             Else
16.   dgPembeli.DataSource = DataPembeli
17.             End If
18.         End If
19.        
20.     End Sub

Sumber: http://vb.mhdyani.com/2015/03/fungsi-cari-data.html