Buenas. Vuelvo a aclamar vuestra ayuda.

Tengo una base de datos y queria que solo me seleccionase el registro que se acerca más a la fecha actual (pero sin pasarla). He usado este código (sin el loop) para buscar las fechas
avui=Date()
RS.Open "SELECT * FROM concerts WHERE autodata > "&avui&";", oConn, 3
pero me las coge todas. Sabrias ayudarme? Os explico. Es la web de un grupo de música y quiero que salga el proximo concierto.
Gracias de nuevo! ;)