Visual Basic para Aplicaciones - Mostrar Registros según textbox en Basic2010 y Sql server 20

Hola a todos... Estoy realizando una aplicación para la bodega de mi mamá. pues bien estoy trancada en un punto y he probado con todo y nada resulta, pues bien, estoy trabajando con procedimientos en Sql Server, Se como hacer para mostrar todos los registros en el datagrit que tengo, pero necesito filtrar solo los registros que correspondan a un Número de Factura, que mientras valla añadiendo registros específicos de esa factura me vallan mostrando solo los correspondientes al Numero de factura.

Les mostrare el código que tengo ahorita para mostrar todos los registros...

-----------Este es el procedimiento almacenanado en Sql----------------

ALTER proc [dbo].[Muestrame2]
as
SELECT dbo.Entrada_producto.Fecha_entrada AS Fecha_Entrada, dbo.Producto.Idproducto AS Idproducto, dbo.Producto.Nombre_pro, dbo.Entrada_producto.Cantidad AS Cantidad,
dbo.Entrada_producto.Idpresentacion AS Presentacion, dbo.Entrada_producto.Identrada AS Identrada, dbo.Entrada_producto.Idproveedor, dbo.Entrada_producto.Precio_compra,
dbo.Entrada_producto.Iva, dbo.Entrada_producto.Total, dbo.Entrada_producto.Utilidad_prod, dbo.Entrada_producto.Precio_venta,
dbo.Entrada_producto.Ganancia_unidad, dbo.Entrada_producto.Ganancia_lote, dbo.Entrada_producto.Stock, dbo.Entrada_producto.Fecha_vencimiento
FROM dbo.Entrada_producto INNER JOIN
dbo.Producto ON dbo.Entrada_producto.Idproducto = dbo.Producto.Idproducto
order by Identrada


----------este es el Código del la clase-------
Public Class FCompra
Inherits Conexion
Dim cmd As New SqlCommand


Public Function Mostrar() As DataTable
Try
Conectado()
cmd = New SqlCommand("Muestrame2")
cmd.CommandType = CommandType.StoredProcedure
cmd.Connection = cnn

If CBool(cmd.ExecuteNonQuery) Then
Dim Dt As New DataTable
Dim Da As New SqlDataAdapter(cmd)
Da.Fill(Dt)

Return Dt
Else
Return Nothing
End If

Catch ex As Exception
MsgBox(ex.Message)
Return Nothing
Finally
Desconectado()
End Try
End Function
End Class


----------- Y este el código del formulario-----

Private Dt As DataTable

Private Sub Mostrar()

Try
Dim func As New FCompra
Dt = func.Mostrar
Datalistado.Columns.Item("Eliminar").Visible = False
If Dt.Rows.Count <> 0 Then

Datalistado.DataSource = Dt
txtbuscar.Enabled = True
Datalistado.ColumnHeadersVisible = True
Else
Datalistado.DataSource = Nothing
txtbuscar.Enabled = False
Datalistado.ColumnHeadersVisible = False
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
Buscar()
End Sub


Si me pueden ayudar se los agradecería muchísimo....