Access - Contar Fields en Consultas

Hola:

Necesito contar el número de campos de un consulta

Desconozco por qué no funciona el siguiente código

Si alguien me dice en dónde está el fallo, se lo agradezco

CÓDIGO que falla:

Dim dbs As Database, tdf As QueryDef
Dim fld As Field
Dim mCad As String
Dim i As Integer

Set dbs = CurrentDb

Set tdf = dbs.QueryDefs![5_2_conUn_PActivo]

i = tdf.Fields.Count

For Each fld In tdf.Fields

mCad = fld.Name
Next

DA COMO RESULTADO: i= 0, CERO campos, y os aseguro que es incorrecto

CURIOSAMENTE falla también este código de la Ayuda:

Dim dbs As Database, tdf As TableDef
Dim fld As Field
Dim i As Integer

' Devolver referencia a la base de datos actual.
Set dbs = CurrentDb
' Devolver referencia a la tabla .
Set tdf = dbs.TableDefs!tbMedPActivos

' Contar los campos de la colección Fields del objeto TableDef.
i = tdf.Fields.Count

' Mostrar los nombres de todos los campos.
For Each fld In tdf.Fields
Debug.Print fld.Name
Next fld
Set dbs = Nothing

El fallo se produce en el bucle: For Each, con el error: EL TIPO NO COINCIDE, pero, sí cuenta bien los campos de la tabla

Gracias de antemano a quien me de una solución
Victoria

¿No será que te falta una referencia a DAO?

Saludos
José Bengoechea Ibaceta