flexgrid search using text_change event

i just want to ask how to clear the data from flexgrid.
im using textbox to search data from flexgrid and its almost perfect but when the data i type on textbox is not in the flexgrid the flexgrid still have all the data from the database.i want to clear the data from flexgrid once the data that i type on textbox is not in the flexgrid...can someone pls help me tnx..

here is my code::

Private Sub Text3_Change()
If Me.Text3.Text = "" Then
clear
ShowTable
Exit Sub
End If

Dim rs As New ADODB.Recordset
On Error GoTo err:
rs.Open "SELECT * FROM pharmainventory where medicine_name like '" & Me.Text3.Text & "%'", con, adOpenKeyset, adLockOptimistic
rs.MoveFirst

With MSFlexGrid1
'column width
.ColWidth(0) = 300
.ColWidth(1) = 0
.ColWidth(2) = 3000
.ColWidth(3) = 1500
.ColWidth(4) = 3000
.ColWidth(5) = 1200
.ColWidth(6) = 1800

'Header
.TextMatrix(0, 2) = "Medicine Name"
.TextMatrix(0, 3) = "Mg / Ml"
.TextMatrix(0, 4) = "Make"
.TextMatrix(0, 5) = "Quantity"
.TextMatrix(0, 6) = "Price / Quantity"

'text alignment
.ColAlignment(2) = flexAlignLeftCenter
.ColAlignment(3) = flexAlignLeftCenter
.ColAlignment(4) = flexAlignLeftCenter
.ColAlignment(5) = flexAlignLeftCenter
.ColAlignment(6) = flexAlignLeftCenter

' the data
While Not rs.EOF
.TextMatrix(.Rows - 1, 1) = rs.Fields(0)
.TextMatrix(.Rows - 1, 2) = rs.Fields(1)
.TextMatrix(.Rows - 1, 3) = rs.Fields(2)
.TextMatrix(.Rows - 1, 4) = rs.Fields(3)
.TextMatrix(.Rows - 1, 5) = rs.Fields(4)
.TextMatrix(.Rows - 1, 6) = rs.Fields(5)

rs.MoveNext

.Rows = .Rows + 1
Wend
.Rows = .Rows - 1

End With

i use the code below on a datagrid and its working fine...but on flexgrid its a no no...?????????????
With rspharmainventory
.MoveFirst
While .EOF = False
If .Fields(1) = Me.Text3.Text Then
Me.txtmedicinename.Text = .Fields(1)
Me.txtmg.Text = .Fields(2)
Me.txtmake.Text = .Fields(3)
exit sub
else
clear
MSFlexGrid1.clear ' do i need to use this????
end if
.MoveNext
Wend
End With

rs.Close
err:
End Sub