Access - Pasar a una variable el total de una consulta

Cómo pasar a una variable el resultado de esta consulta:

DoCmd.RunSQL "SELECT Count(*) AS Total FROM Ejemplo"

Gracias.

yo lo haria con un recordset, no se si hay una forma mas sencilla, si encuetras una me avisas por favor,

dim Consulta as Adodb.recordset

set consulta = new adodb.recordset

consulta.open "SELECT Count(*) AS Total FROM Ejemplo", Currentproyect.connection

VariableX = consulta.fields(0).value

consulta.close