Нет, к сожалению этим проблема не решается так как в той ветке ошибка возникает при разборе данных пришедших в recordset у меня же никаких данных не возвращается - процедура результат своих действий складывает в таблицу. а сводная в свою очередь в нее смотрит. так что проверка состояния рекордсета не помогает так как VBA падает еще на execute
вот VBA код
1.
2.
3.
4.
5.
6.
7.
8.
Dim ADOCon As New ADODB.Connection
Dim Rst As New ADODB.Recordset
ADOCon.Open "DSN=baza;DATABASE=DB1;Network=DBMSSOCN"
ADOCon.CommandTimeout = 0
ADOCon.Execute "exec Proc1"
Range("D19").Select
ActiveSheet.PivotTables("Pivot1").PivotCache.Refresh
