Visual Basic - Form Pencarian

Pada saat kita membuat program berbasis database, maka terkadang kita membutuhkan form pencarian, maka mungkin tmean-teman dapat menggunakan code dibawah ini.. cekidothh....
Letakkan kode dibawah ini pada textbox pencarian . double click pada textbox tersebut lalu actionnya adalah change ...



Private Sub Text1_Change()
If Text1.Text = "" Then
buku.Filter = ""
buku.Requery
Else

If Combo1.Text = "Kode" Then
buku.Filter = "kode like '%" & Text1.Text & "%'"
ElseIf Combo1.Text = "Judul Buku" Then
buku.Filter = "Judul like '%" & Text1.Text & "%'"

End If
End If
End Sub

Bagian yg dicetak tebal merupakan bagian dari combobox, dimana untuk memberikan item-item itu pada combo box, listingnya adalah

combo1.additem "Kode"
combo1.additem "Judul Buku"

code ini di taruh pada saat form diload...

Mungkin ini saja untuk kali ini, Thanks..
Just newbie...