Filtro en datagridview con textbox

[memocaceres]

Hola amigos,

tengo un datagridview en VB.NET 2010 enlazado a una BD en sql 2008 quiero generar un filtro que mediante escriba en un textbox una letra, me vaya buscando en el datagrid la informacion. Por ejemplo: Pongo en el textbox: Pantalón Lee y en el datagridview se muestran los datos referentes a Pantalón Lee. Lo cual puedo realizar con el primer campo que es pantalón, pero si quiero a continuación seguir escribiendo para buscar el dato del segundo campo que sería Lee pone en blanco el datagridview

aca les dejo el código:

' con esta función lleno el grid

Private Sub llenargrid()

sql = "Select * from Articulos"
conectar()
da = New SqlClient.SqlDataAdapter(sql, conexion)
cb = New SqlClient.SqlCommandBuilder(da)
ds = New DataSet
da.Fill(ds, "Articulos")
DgvListaEdicion.DataSource = ds
DgvListaEdicion.DataMember = "Articulos"
conexion.Close()

End Sub

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

llenargrid()

End Sub

' con esta función busco mediante el textbox

Private Sub Aplicar_Filtro()


sql = ("Select * From Articulos WHERE tiporopa LIKE '%" & TxtBuscar.Text.Trim & "%'")
conectar()
da = New SqlClient.SqlDataAdapter(sql, conexion)
cb = New SqlClient.SqlCommandBuilder(da)
ds = New DataSet
da.Fill(ds, "tiporopa")
DgvListaEdicion.DataSource = ds
DgvListaEdicion.DataMember = "tiporopa"
conexion.Close()
Return

End Sub

Private Sub TxtBuscar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtBuscar.TextChanged

Aplicar_Filtro()

End Sub