how can filter by name

Public Class Form12
    Public oCn As New System.Data.SqlClient.SqlConnection("Data Source=(local);Initial Catalog=MyDatabase;Uid=sa")
    Dim dv As New DataView

    Private Sub Form12_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        fill_grid()
    End Sub

    Sub fill_grid()
        If oCn.State = ConnectionState.Closed Then
            oCn.Open()
        End If
        Me.DataGridView1.Rows.Clear()
        Dim cmd As New SqlClient.SqlCommand("SELECT * from mst_scheme where scheme_name like '" & Me.TextBox1.Text & "%'", oCn)
        Dim da As New SqlClient.SqlDataAdapter(cmd)
        Dim ds As New DataSet("bpl")
        Dim i As Integer = 0

        da.Fill(ds, "bpl")

        If ds.Tables(0).Rows.Count > 0 Then
            While (i <> ds.Tables(0).Rows.Count)
                Me.DataGridView1.Rows.Add()
                Me.DataGridView1.Item(0, i).Value = i + 1
                Me.DataGridView1.Item(1, i).Value = ds.Tables(0).Rows(i).Item("scheme_name").ToString
                Me.DataGridView1.Item(2, i).Value = ds.Tables(0).Rows(i).Item("scheme_id").ToString
                i = i + 1
            End While
        End If

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        fill_grid()
    End Sub
End Class