Visual Basic - problemas de velocidad

uola muy buenas, tengo un problema de velocidad, tengo una base de datos con una tabla de 3000 registros, ahora los cargo de golpe, es decir hago el recordset de todos con un select * from articulos, me podrian decir como puedo mejorar este tiempo de espera, hasta q el recordset se llena.
aqui les muestro mi linea de conexion, por si alguien ve alguna forma de mejorarla.

CON.CursorLocation = adUseClient
CON.Open "DSN=aplicacion;"

R_ARTICULOS.ActiveConnection = CON
R_ARTICULOS.Open "SELECT * FROM ARTICULOS", , adOpenDynamic, adLockOptimistic

muchisimas gracias.

Las consultas no se cargan todas de un solo sino solo lo necesario, puede ser que cuando el usuario digite un código , descripción o aparezca conforme el usuario va digitando el nombre, asi no se te carga la aplicación y libera la pc.