Проблема....
создан объект ADODB.RecordSet
В него запрошены с БД данные.
Далее происходит в зависимости от алгоритма фильтровка рекорсета
rs.Filter = "Строка фильтра"
Проблема: Если записей в рекордсете немного <50, то все работает.
При кол-ве записей около 3 при попытке присвоить фильтр возникает неопознанная ошибка.
В чем может быть дело?

Ошибся....не около 3, о около 300 :)

Нет, там сначала пустая строка, затем необходимое условия.
Тут заметил, что рекорсет просто неформируется.
В чем тут может быть ошибка?
При небольшом кол-ве записей все выполняется, если количество более 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