Localizar registro específico baseado em uma informação em uma caixa de texto (BUSCA)

Boa tarde a todos,

             Estou montando um BD e nele há um campo chamado sequencial que é único para cada registro. Eu criei uma caixa de texto e um botão no topo. A ideia é o usuário escrever o número da sequencial em uma caixa de texto e clique no botão ao lado ai o formulário vai para o registro que onde a sequencial indicada pelo usuário existe, semelhante ao que é feito com a "botões de navegação" do formulário.
             Eu desabilitei os botões de navegação porque eu quero que o usuário pesquise tão somente este campo.
             Se alguém puder me ajudar ficarei grato.
             Estou mandando um exemplo para facilitar.
              Desde já agradeço a atenção de todos.

Boa noite Felipe, veja se era isso que queria..


Coloquei para pesquisar digitando na textbox e também por um botão abaixo no form

Fica a seu critério como usar e adaptar.

Aguardamos.

Bom dia Fernando

     Grato pela atenção, o exemplo funcionou perfeitamente, porém na hora que fui repassar para o meu BD original infelizmente a busca não funciona, ela simplesmente não acha nada ele abre um registo inexistente.
      Assim se puder dar uma olhada por favor no código, fiz uma alteração no código para colocar um IF e ELSE, e apenas com click do botão para fazer a pesquisa, porém mesmo sem isso o campo busca não estava funcionando.
      Segue abaixo o BD também


OBS: nome da Tabela é "A_TP_PROCEDIMENTO", nome do campo é 09_Sequencial_Final, O campo onde é digitado a pesquisa é o Me.Pesq_sequ_V.

On Error GoTo Erro
Dim strSQL As String
Dim xlocalizar As Variant
xlocalizar = Me.Pesq_sequ_V
If IsNull(Pesq_sequ_V) Then
MsgBox ("O campo sequencial está vazio e é necessário ser preenchido")
Me.Pesq_sequ_V.SetFocus
Else
strSQL = "SELECT * FROM [A_TP_PROCEDIMENTOS] WHERE [09_Sequencial_Final]='" & xlocalizar & "'"
Me.Form.RecordSource = strSQL
End If
Exit Sub
Erro:
End Sub

Boa noite Felipe;

Retire os colchetes

On Error GoTo Erro
Dim strSQL As String
Dim xlocalizar As Variant
xlocalizar = Me.Pesq_sequ_V
If IsNull(Pesq_sequ_V) Then
MsgBox ("O campo sequencial está vazio e é necessário ser preenchido")
Me.Pesq_sequ_V.SetFocus
Else
strSQL = "SELECT * FROM [A_TP_PROCEDIMENTOS] WHERE [09_Sequencial_Final]='" & xlocalizar & "'"
Me.Form.RecordSource = strSQL
End If
Exit Sub
Erro:
End Sub

Boa noite Fernando,


          Mesmo retirando os colchetes não funcionou. Você pode olhar por favor a aplicação em si que eu coloquei, ja tentei mudar o nome,fiz de tudo e não funciona, realmente não sei o que fiz de errado.

BD no link abaixo

https://www.dropbox.com/s/0kk9ky6gdlfjs1p/Secrimpo_Ma.zip?dl=0

Boa noite Felipe;

Estive vendo seu banco e o filtro não funciona porque sua tabela A_TP_PROCEDIMENTOS

não tem ligação nenhuma com a tabela B_TA_PROCEDIMENTOS_01_LEI_ARTIGO

No formulário em questao existe um subformulario onde a fonte de registro é da tabela

B_TA_PROCEDIMENTOS_01_LEI_ARTIGO.

Grave todos os dados na tabela principal ai então seu filtro funcionará.

Esses dias esta meio corrido pra mim mais qualquer duvida vamos tentando te ajudar ok.