Filter Data Pencarian SQL Dalam MshFlexgrid Melalui Textbox pada Visual Basic 6

Silahkan anda Masukan Source Code di bawah ini  kedalam textbox Pencarian anda.

Private Sub Text1_Change()
'kode ini untuk membuat Teks awal otomatis huruf besar
Text1.SetFocus
If KeyAscii = vbKeyReturn Then Command1.SetFocus
Dim a As Integer
     a = Text1.SelStart
     Text1.Text = StrConv(Text1.Text, vbProperCase)
     Text1.SelStart = a 
'Source Code inilah inti dari Filter Pencarian data tersebut
    Sql = "select *from transaksi where nm_brang like '" & Text1.Text & "%' "
    Rs.Open Sql, con, adOpenStatic
Set MSHFlexGrid1.Recordset = Rs
    Rs.Close
End Sub

Kemudian setelah itu silahkan anda coba "Run" Program nya.. 
Ok Guys.. Selamat Mencoba..