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 ---- IDteste1 - - ABC1 ---- 1teste2 - - ABC2 ---- 2 teste3 - - ABC3 ----- 3teste1 - - ABC4 ---- 4teste1 - - ABC5 ----- 5teste1 - - ABC6 ----- 6O 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 = ABC6Textbox2 = ABC5Textbox3 = 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
