В чем тут может быть ошибка?
При небольшом кол-ве записей все выполняется, если количество более 300, рекордсет неформируется.
Может быть для больших наборов данных команду надо как то иначе выполнять, с параметрами например?

Set cmd = New ADODB.COMMAND
cmd.CommandType = adCmdStoredProc
cmd.ActiveConnection = Connection
cmd.CommandText = "DWH.BDG_API.CalcCell"
cmd.Parameters.Append cmd.CreateParameter("p_dtcount", adDate, adParamOutput, 8, dt_count)
cmd.Parameters.Append cmd.CreateParameter("p_AccessError", adVarChar, adParamOutput, 4000, AccessError)
cmd.Parameters.Append cmd.CreateParameter("p_ScenarioId", adNumeric, adParamInput, 8, in_id_scenario)
cmd.Parameters.Append cmd.CreateParameter("p_KindSummId", adNumeric, adParamInput, 8, in_id_kind_summ)
cmd.Parameters.Append cmd.CreateParameter("p_ScenarioProper", adNumeric, adParamInput, 8, in_scenario_proper)
cmd.Parameters.Append cmd.CreateParameter("p_OwnIndex", adNumeric, adParamInput, 8, in_own_index)
cmd.Parameters.Append cmd.CreateParameter("p_DateFrom", adDate, adParamInput, 8, in_date_from)
cmd.Parameters.Append cmd.CreateParameter("p_DateTo", adDate, adParamInput, 8, in_date_to)
cmd.Parameters.Append cmd.CreateParameter("p_Purpose", adVarChar, adParamInput, 250, in_purpose_new)
cmd.Parameters.Append cmd.CreateParameter("p_PurposeProper", adNumeric, adParamInput, 8, in_purpose_proper_new)
cmd.Parameters.Append cmd.CreateParameter("p_StateDateFrom", adDate, adParamInput, 8, in_state_date_from)
cmd.Parameters.Append cmd.CreateParameter("p_StateDateTo", adDate, adParamInput, 8, in_state_date_to)
cmd.Parameters.Append cmd.CreateParameter("p_UserFilter", adVarChar, adParamInput, 2000, in_userFilter_new)
cmd.Parameters.Append cmd.CreateParameter("p_ReportSide", adNumeric, adParamInput, 8, in_report_side)
cmd.Parameters.Append cmd.CreateParameter("p_CalcResType", adNumeric, adParamInput, 8, calc_result_type)
cmd.Parameters.Append cmd.CreateParameter("p_TypeRight", adInteger, adParamInput, 4, in_type_right)
cmd.Parameters.Append cmd.CreateParameter("p_UserRight", adVarChar, adParamInput, 32, in_user_right)
cmd.Parameters.Append cmd.CreateParameter("p_FullSegment", adVarChar, adParamInput, 4000, sxml)
Set rs = cmd.Execute