Visual Basic - Ejecutar Consulta desde Vb a Acces

Cual es la mejor manera (que se ejecute mas rapido y que utilize menos recursos) de ejecutar una consulta creada en Access ?

esta? donde rs es un objecto recordset y CnBD un objecto connection

CONSULTA es el nombre de mi consulta que esta en la BD

Set rs = CnBD.Execute("select * from Consulta")
Do While Not rs.EOF
' utilizacion de datos
Loop

o esta ?

donde Cmd es un objecto Command, rs es un objecto recordset y CnBD un objecto connection

Set Cmd.ActiveConnection = CnBD
Cmd.CommandType = adStoredProc
Cmd.CommandText = "Consulta"
Set rs = Cmd.Execute

gracias por su atencion