Consulta em Banco

Estou tentando fazer uma consulta no banco através do número de transação, mas ele dá um erro como se o valor não estivesse no banco.
Não consigo anexar o formulário devido o tamanho do arquivo em excel.

O código é o seguinte:

Private Sub txtordem_AfterUpdate()

'Cria variável que armazena os comandos SQL
   Dim ComandoSQL As String
   Dim id As String
   
   id = txtordem
   
   'Armazena na variável o comando que fará a consulta SQL no BD Access
   ComandoSQL = "select * from TB_Base_Geral where Transação like '" & id & " ' "
     
   'Chama a rotina que faz a conexão com o BD
   Call Conecta
   
   'Atribui a variável objeto de BD a execução dos comandos SQL
       Set consulta = banco.OpenRecordset(ComandoSQL)
   
   'Tratamento de erro de acesso aos dados. Se houver erro, desvia o comando para o rótulo Sai
  ' On Error GoTo Sai
   
   'Exibe nos rótulos do formulário, o conteúdo de cada campo encontrado na consulta
   Me.txtordem = consulta("Transação")
   Me.txttecnico = consulta("Tecnico")
   Me.TxtPeriodo = consulta("Periodo")
   Me.TxtTipoOrdem = consulta("Tipo de Ordem")
   Me.TxtContratada = consulta("Contratada")
   
     
   Exit Sub
   
Sai: 'O comando será desviado parta cá caso haja erro de acesso aos dados
   
    Dim resposta As String 'cria a variável resposta
    resposta = MsgBox("Código não encontrado.", vbOKOnly) 'cria a mensagem para determinar qual ação será executada
       
       'Call LimparDados
       'Chama a rotina de desconexão com o BD (libera as variáveis de objeto de BD)
       Call Desconecta
       
       
 
 

End Sub

Dá erro na linha que deixei destacado.

O erro é o seguinte: "Não foi possível definir a propriedade Value.Tipo não correspondente."

Tudo tanto no banco, quanto no formulário está declarado como texto.

Alguém pode me ajudar?

Moma,

identifiquei que no ultimo apostrofo havia um espaço a mais, veja se corrigindo para o trecho abaixo resolve:

Código:

"select * from TB_Base_Geral where Transação like '" & id & "' "