Busca valor exato

[COMPRADOR]

  Bom dia

Estou quebrando a cabeça mas não consegui solucionar, se alguém souber agradeço.

Tenho um codigo para busca por cadastros, mas tem algum erro, porque quando busco código "8135", está me retornando os dados do código "8121", ou seja está pegando os dois primeiros números somente.

Como faço para transformar esta busca para o número inteiro somente?

segue código usado. Obrigada

 

 

If txt_buscaeng = "" Then
MsgBox ("Digite ENG a ser procurado")
Exit Sub
End If
 
Dim eng

eng = Format(Me.txt_buscaeng, "####")

Call Conecta
  
    ComandoSQL = "select * from Tabela_expedientes"
    Set consulta = Banco.OpenRecordset(ComandoSQL)
    
    While Not consulta.EOF
        If consulta("eng") = eng Then
        txt_codigo = consulta("ID")
        GoTo fim
       End If
       consulta.MoveNext
    Wend
     
      MsgBox "Numero Eng não encontrado!"
      Call Desconecta
      Exit Sub

fim:
    Call Desconecta
       valor = Me.txt_codigo - 1
        txt_buscaeng = ""
        txt_eng = ""
        btn_proximo_Click
       Call carrega_pesquisa
      
    

[Basole]

@COMPRADOR tente.. as alteraçoes dessas linhas:

 

Dim eng as string
eng = Vba.Format(Me.txt_buscaeng.Value, "####")
 If vba.Trim(consulta("eng").Value) = Vba.Trim(eng) Then

 

 

 

 

[COMPRADOR]

@Basole Aparentemente está certinho agora, vou fazer mais uns testes mas valeu!!
você arrasa sempre, obrigada!