haber si no te entendi mal, para extraer la informacion del ultimo registro:
Si usas el Objeto Recordset:
if Not Rs.EOF then
Rs.MoveLast
End If
Si usas ADODC:
If not ADODC1.Recordset.Eof then
ADODC1.Recordset.MoveLast
end if
Con eso te ubicas en el ultimo registro y puedes obtener su informacion