Print Filter Like Textbox.text?

i have table with 2 field (ID and BLNumber) and data in table is:

ID BLNumber
1 1231001
2 1231002
3 1232003
4 1232004
5 1233005

in form i have 1 Print button (Button4) and 1 textbox (Filter.text), etc.now i want to print the all data like Filter.text this is my code

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If TableNamaDataGridView.RowCount < 1 Then Exit Sub
Dim frm As New PrintForm
Dim objRptDo As New CrystalReport2

[code]....

if i write "1231001" this program work ok(print only on record):

1 1231001

but i want to print all data with 5 first digit "12310", and will print:

1 1231001
2 1231002