El problema es que yo abro una tabla consulta, la abro asi:
Dim Comando As New ADODB.Command
Dim Parametro As New ADODB.Parameter
Set Comando = Nothing
Set Parametro = Nothing
Comando.CommandText = "ConsultaINFORME"
Comando.CommandType = adCmdStoredProc
Set Parametro = Comando.CreateParameter("x", adDouble, adParamInput)
Comando.Parameters.Append Parametro
Parametro.Value = numero
Set Comando.ActiveConnection = CnxDemolab
Set MkInforme = Comando.Execute
y es primera vez que quiero contar los registros de una taba consulta