Filtrar Dados do DataGrid com RowFilter ou Filter

[Rui PG 0]

Caros Amigos!

Por favor, gostaria de uma ajuda de vocês, sou novo em desenvolvimento e nessa semana toda, vasculhei a internet e fórum a procura de alguma ajuda ou solução para meu problema.

Preciso filtrar os dados da minha datagridview conforme o usuário digite no TEXTBOX, porem ao executar o projeto e ao digitar no campo um valor, é apresentado o seguinte erro:

An unhandled exception of type 'System.Data.EvaluateException' occurred in System.Data.dll

Additional information: Não é possível encontrar a coluna [Número OS].

 

Veja o passo a passo e o código que eu fiz:

- Essa é a Procedure que eu criei no SQL e a utilizo para carregar os dados na minha datagridview.

create PROCEDURE [dbo].[spOrdemDeServico]
as
SELECT
IDORDEM AS [Número OS],
CLIENTES.NOMERAZAO AS [Nome do Cliente],
CLIENTES.CPF,
CLIENTES.RG,
CLIENTES.CNPJ,
DTCRIACAO AS [Data Cadastro],
ORDEMSERVICO.TIPOORDEM as [Tipo de OS],
ORDEMSERVICO.STATUSORDEM AS [Status da OS],
DATAINICIO AS [Dt. Inicio OS],
DTPREVISAO AS [Dt. Termino OS],
RESPONSAVEL AS [Responsavel pela OS],
EQUIPAMENTORECEBIDO AS [Produto/Equipamento Recebido],
NUMSERIE AS [Numero de Série],
MARCA AS [Marca],
MODELO AS [Modelo],
TOTALITEM AS [Qdt Itens],
VALORTOTAL as [Valor Total],
OBSERVACAORECEBIMENTO AS [Obs Recebimento],
DESCRICAOPROBLEMA AS [Obs Problema],
DESCRICAOSERVICOPRESTACAO AS [Obs Descrição Serviço],
OBSINTERNAS AS [Obs Intena],
IDPEDIDO AS [Id Pedido],
ORDEMSERVICO.IDCLIENTE AS [Id Cliente]
FROM
ORDEMSERVICO INNER JOIN CLIENTES ON ORDEMSERVICO.IDCLIENTE =  CLIENTES.IDCLIENTE
ORDER BY 
DTCRIACAO DESC

-  Na minha Public Sub loadData(), eu chamo a procedure para carregar os dados na minha datagridview, até ai está funcionando perfeitamente. 

Public Sub loadData()
        Using conn As SqlConnection = GetConnection()

            Try
                conn.Open()
                Dim dt As New DataTable
                da = New SqlDataAdapter("spOrdemDeServico", conn)
                da.SelectCommand.CommandType = CommandType.StoredProcedure
                da.Fill(dt)
                dgvAgenda.DataSource = dt

            Catch ex As Exception
                MsgBox(ex.Message)
            Finally
                da.Dispose()
                If conn IsNot Nothing AndAlso conn.State = ConnectionState.Open Then
                    conn.Close()
                End If
            End Try

        End Using
    End Sub

- No evento TextChanged do campo TxtProcurar, onde o usuário digitará a palavra chave para filtrar os dados do datagrid, inclui o seguinte código abaixo e ao compilar o visual studio gerou o seguinte erro: 

Private Sub txtProcurar_TextChanged(sender As Object, e As EventArgs) Handles txtProcurar.TextChanged
        Timer1.Stop()

        bs = New BindingSource()
        bs.DataSource = dt
        dgvAgenda.DataSource = bs
        bs.Filter = "[Número OS] = '" & Me.txtProcurar.Text & "'"

    End Sub

Já tentei colocar o nome do campo de várias formas, mesmo assim o vb.net gera o erro.

 

Por favor me ajudem.

 

Agradeço pela atenção

Edited April 10, 2018 by Gabriel Heming
adicionar marcação de código

[quintelab 91]

Quando estiver debugando, veja todos as colunas que foram carregadas no seu dgvAgenda.DataSource. Veja se tem alguma coluna com o nome [Número OS]