Access - asignar variable

alguien sabe como asignar a una variable el resultado de una consulta. por ejemplo una consulta que cuente registros y devuelva "12". para asignarle a una variable el resultado (12). gracias y saludos

Dim mCad as String
mCad="Select Count(campo) As resultado from Consulta"
Dim mRs as Recordset
set mRs=Currentdb.OpendRecordset(mCad)
Dim var
var=mRs!resultado

Esa es una forma
Victoria