Выход конечно найден.

Но все же вернемся к ошибке Err.Number=-2147221411
Если в DTS её обойти получается, то как быть в приложениях в которых не предусмотрена работа с DTS пакетами?

И проблема такая, что при созданиии партиции её не получается процесить программно. Это становится возможным только после того как в менеджере сделать процесс один раз и в дальнейшем выполняй процесс куба сколько тебе вздумается. И так каждый раз для новой партиции.

Может кто подскажет в чем собственно причина. На подобную ошибку ответа не нашел ни у кого.

Валеккороче расскажу гдето краем уха читал/слышал/пробовал сам
фишка в том от какого аккаунта запускаються процессы если ручками, то от пользователя запустившего, если DTS то от пользователя создавшего или владельца, ну а в случае автоматического типа программного, тут может как угодно хорошо если еще от системы, а может и пустой пользователь.
Это подтвердилось косвенно собственным печальным опытом. Пользуем DTS пакеты уже более года

Тут дело скорее всего даже не в аккаунте.
Может в инициализации каких либо свойств перед процессингом партиции.
Я упомяну ещё раз, что если выполнить процесс партиции ручками из менеджера, то после этого сколько угодно раз можно процессить и программно через DSO.
Но я выставлял ручками все важные свойства и потому не пойму в чем дело.
Может кто уже сталкивался с подобной проблемой и нашел решение?

А пример вот:
Function Main()
Set Conn = CreateObject("ADODB.Connection")
Conn.CommandTimeout = 0
Conn.Open "Provider=sqloledb;Server=" & DTSGlobalVariables("SQL_SERVER") & ";Database=<???????>;Trusted_Connection=yes"

Set RS = CreateObject("ADODB.Recordset")
RS.Open "SELECT count(*) FROM ???????",Conn

If not(RS.EOF and RS.BOF) then
Rows_Count = RS.Fields(0)
Work_Year = DTSGlobalVariables("YEAR")
Work_Month = DTSGlobalVariables("MONTH")

Partition_Name = "?????????_" & Work_Year & "_" & Work_Month

Set dsoServer = CreateObject("DSO.Server")
Set dsoDatabase = CreateObject("DSO.MDStore")
Set dsoCube = CreateObject("DSO.MDStore")
Set dsoPartition = CreateObject("DSO.MDStore")
Set dsoPartition_new = CreateObject("DSO.MDStore")

'=============== connect to OLAP server ===============
dsoServer.Connect DTSGlobalVariables("OLAP_SERVER")

'=============== connect to the database OLAP ===============
Set dsoDatabase = dsoServer.MDStores.Item(DTSGlobalVariables("OLAP_DB"))

If <Условия некие> then
ProcessPartition DTSGlobalVariables("OLAP_CUBE")
End If

ProcessPartition DTSGlobalVariables("OLAP_CUBE_ARC")
end if
Set dsoDatabase = Nothing
dsoServer.CloseServer
Set dsoServer = Nothing

Main = DTSTaskExecResult_Success
End Function

Function ProcessPartition (CubeName)
'=============== connect to the Cube ===============
Set dsoCube = dsoDatabase.MDStores.Item(CubeName)

If not(dsoCube.MDStores.Find(Partition_Name)) then
'=============== Select first partition ===============
Set dsoPartition = dsoCube.MDStores.Item(1)

'=============== Add new partition ===============
Set dsoPartition_new = dsoCube.MDStores.AddNew(Partition_Name)

dsoPartition.Clone dsoPartition_new
Set dsoPartition = Nothing
Else
Set dsoPartition_new = dsoCube.MDStores.Item(Partition_Name)
End If

'=============== Full Process Partition ===============

dsoPartition_new.EstimatedRows = Rows_Count
dsoPartition_new.AggregationPrefix=Partition_Name

dsoPartition_new.Process ProcessFull

Set dsoCube = Nothing
Set dsoPartition_new = Nothing

End Function