Estou com uma dúvida, tenho um banco de dados, com aproximadamente 1.000.000(Um milhão) de registros. E constantemente preciso buscar referencias em um determinado campo, que retorne dos seus demais campos desse mesmo registro (o qual tem que ser o mais recente), outros valores.

       Só que não estou conseguindo, localizar o mais recente, de uma maneira RÁPIDA. Consigo apenas localizar o primeiro registro, que pode não me retornar os valores corretos, porque os corretos estão no registro mais recente. Sei que poderia estar fazendo esta consulta, e a cada registro ele move para o outro a procura, mas isso, costuma demorar muito, e estava precisando da ajuda de vocês para reparar esse código que eu uso, ou me darem alguma dica de como poderia fazer isso de uma forma que fique mais rápida a consulta.

 

Segue abaixo os códigos fontes, e desde já agradeço a todos.

 

"        Dim MarcaAuto As Recordset
"        Dim BancoBal As Database
"        Set BancoBal = OpenDatabase(ServidorP)
"        Set MarcaAuto = BancoBal.OpenRecordset("BalancoP")
"        MarcaAuto.Index = "Placa"
"        MarcaAuto.Seek "=", TxtPlacaEntrada
"        If MarcaAuto.NoMatch Then
"        Else
"            TxtMarcaEntrada = MarcaAuto("MarcaP")
"            TxtCorEntrada = MarcaAuto("CorP")
"        End If
"        MarcaAuto.Close
"        BancoBal.Close