¿Cómo recorrer un recordset adodb?

B. Día a todos esta es mi duda:

Desde excel vba abro una consulta/tabla y anexo datos a través de un recordes adodb que se crea, ahora necesito saber, como puedo recorrer el recordest adodb para conocer cuantos registros tiene una tabla/consulta, hago lo siguiente:

Dim cn As Object
Dim datos As Object
Dim consultaSQL As String
Dim conexion As String
Dim CONT As Long

Set cn = CreateObject("ADODB.Connection")
conexion = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"data source=\\ANDRES_ATILANO\Users\Public\proyecto dequimia\BD_DEQUIMIA.accdb"
consultaSQL = "select * from CON_EXISTENCIAS_A;"
cn.Open conexion
Set datos = cn.Execute(consultaSQL)

' y en este punto introdusco este msgbox

msgbox datos.recordcount

'el cual devuelve el valor de -1 y lo que deseo es obtener el total de registros que tiene la consulta.

' Estoy en sus manos y muchas gracias por su atención.