Retornar Valor - consulta vba

[Welington França]

Tenho o seguinte código que me faz a consulta e me retorna o valor inserido com base na minha pesquisa.

O meu problema é o seguinte:

eu tenho na minha tabela os seguintes valores:

Descrição -- Código ---- ID
teste1 - - ABC1 ---- 1
teste2 - - ABC2 ---- 2 
teste3 - - ABC3 ----- 3
teste1 - - ABC4 ---- 4
teste1 - - ABC5 ----- 5
teste1 - - ABC6 ----- 6


O que eu preciso é que com base no meu código de busca, adaptar para que ele me retorne os 3 últimos valores lançados na tabela de acordo com minha descrição.


Nesse caso ficaria assim:
Ao realizar a pesquisa: "teste1"

me retorno os valores:

Textbox1 = ABC6
Textbox2 = ABC5
Textbox3 = ABC4

 

' Dim valor_pesq As String
 Dim ComandoSQL As String
    
    valor_pesq = Me.cmb_material
                                                    
   ComandoSQL = "select * from TB_Valores where Material_Desc like '*" & valor_pesq & "*' "
  '
    
    
    '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 Resume Next
              
    
    'Tratamento de erro de acesso aos dados. Se houver erro, desvia o comando para o rótulo Sai
'    On Error GoTo sai
 
   
   
   Me.txt_DI = consulta("DI")
   
   txt_custo_forn1 = consulta("Valor_Unit") & ""
   
   
      consulta.Update
       
    Call Desconecta
End Sub