Visual Basic.NET - Busqueda Lenta

Tengo un problema, en una caja de texto para que sea mas rapida la busqueda el usuario puede ir ingresando los caracteres de un articulo y asi el datagrid va mostrando los articulos que se acerquen a los caracteres ingresados,esto lo realice en un text_change con una consulta. El problema es que a medida que se va escribiendo los caracteres la busqueda se hace muy lenta y tarda mucho en mostrar los articulos, por lo gral pasa cuando voy borrando los caracteres de atras para adelante y vuelvo a escribir los caracteres. En la consulta puse identity para acelerar la busqueda pero su mejora fue poca. Gracias

No no me has entendido, nada de lo que me dijiste quiero hacer y el order by ya lo tenia realizado. Solo necesito que la busqueda no sea lenta, ya que me cuelga la maquina y eso que no son mas de 1000 registros y lo peor es que van a ser mas de esa cifra.

Para hacer lo que pides, hay muchas formas.

Si quieres que se te ayude pon el codigo para ver como lo tienes hecho y ver como mejorarlo.

Salu2.

Aca esta el codigo dentro del TtxtBusc_TextChanged(), como veran hay algunas variables que vienen de otro lado, cree que se entiende:

Private Sub TxtBusc_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtBusc.TextChanged

SQL = "select @@identity,CodDetArt as[Cod Art],A.Descripcion+' '+Detalle [Descripcion],Marca,Precio [Precio Contado]," _
& "PrecioLista[Precio Lista],ListaPorcentaje[Porcentaje para Lista %],PrecioXCant[Precio por Cantidad]," _
& " Descuento [Descuento en %],Existencia,Critico,C.Descripcion as Categoria,case DA.Baja when 0 then 'NO' " _
& "else 'SI' end Baja from Articulos A,Categoria C,Marcas M right join DetalleArticulo DA on " _
& "M.CodMarca=DA.CodMarca where A.Baja=0 and DA.Baja=0 and C.Baja=0 and C.CodCat=A.CodCat and A.CodArt=" _
& "DA.CodArt and A.Descripcion like'" & TxtBusc.Text & "%'"

Dim MiTabla As New DataTable
Com = New SqlCommand(SQL, MiConexion)

If MiConexion.State = ConnectionState.Open Then
MiConexion.Close()
End If
MiConexion.Open()
Rs = Com.ExecuteReader()
MiTabla.Load(Rs, LoadOption.OverwriteChanges)

DG1.DataSource = MiTabla

Rs.Close()
Cerrar()
MiConexion.Close()
MiTabla = Nothing
end sub

Ya te he dado una posible solución, en el foro de VB Avanzado, pruebala.

Si alberto la vi gracias de nuevo.