Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged Call Koneksi() da = New OleDbDataAdapter("SELECT * from Buku where Judul LIKE '%" & TextBox9.Text & "%'", Conn) ds = New DataSet da.Fill(ds, "Judul") DataGridView1.DataSource = ds.Tables("Judul") DataGridView1.DataSource = ds.Tables(0) End Sub