Visual Basic.NET - Problema al buscar en un datagrid

Private Sub txtBuscar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBuscar.TextChanged

likeArt(txtBuscar.Text, DGArt)

End Sub

'Y luego esa función:

Sub likeArt(ByVal codigo As String, ByRef Grid As DataGridView)

        Dim longitud As Integer

        With Com

            .CommandText = "PA_likeArt1"

            .CommandTimeout = 0

            .CommandType = CommandType.StoredProcedure

            '.Parameters.Refresh()

            .Connection = MiConexion

            .Parameters.AddWithValue("@codigo", codigo & "%")

        End With

        Rs = Com.ExecuteReader()

    End Sub

'Instanciar el componente BindingSource   

    Private BindingSource1 As BindingSource = New BindingSource

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

        Dim oComando As New SqlCommand("SP_TuProcedimiento", TuConexion)

        oComando.CommandType = CommandType.StoredProcedure

        'creamos un nuevo SQLDataAdapter y un DataTable

        Dim oAdapter As New SqlDataAdapter(oComando)

        Dim oTabla As New DataTable

        Try

            oAdapter.Fill(oTabla)

            BindingSource1.DataSource = oTabla

        Catch ex As SqlException

            MsgBox(ex.Message, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Error")

        End Try

    End Sub

    Private Sub txtBuscar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBuscar.TextChanged

        'Filtramos

        BindingSource1.Filter = "Nombre Like '%" & txtBuscar.Text & "%' or Apellido Like '%" & txtBuscar.Text & "%'"

        ' enlazar el datagridview al BindingSource   

        Me.DataGridView1.DataSource = BindingSource1.DataSource

    End Sub