run-time error 91 (object variable or with block variable not set)

[mrs.petrushina]

Добрый день, коллеги!
Формирую сводную табличку в excel из access, выдает ошибку на
выделенной строке кода. Хелп ми плиз=)

Sub PTCreate()

Dim cnnConn As ADODB.Connection
Dim rstRecordset As ADODB.Recordset
Dim cmdCommand As ADODB.Command


' Open the connection.
Set cnnConn = New ADODB.Connection
With cnnConn
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4 .0"
.Open "C:\Documents and Settings\petrushina_as\Рабочий стол\SMS.mdb"
End With

' Set the command text.
Set cmdCommand = New ADODB.Command
Set cmdCommand.ActiveConnection = cnnConn
With cmdCommand
.CommandText = "Select [Филиал],[Дата отправки],[Месяц отправки],[SMS доставлено],[Count-Телефон] From 0110_Запрос_для_SMS_fin"
.CommandType = adCmdText
.Execute
End With

' Open the recordset.
Set rstRecordset = New ADODB.Recordset
Set rstRecordset.ActiveConnection = cnnConn
rstRecordset.Open cmdCommand

' Create a PivotTable cache and report.
Set objPivotCache = ActiveWorkbook.PivotCaches.Add( _
SourceType:=xlExternal)

Set objPivotCache.Recordset = rstRecordset
With objPivotCache
.CreatePivotTable TableDestination:=Range("A3"), _
TableName:="Pivot"
End With

With ActiveSheet.PivotTables("Pivot")
.SmallGrid = False
With .PivotFields("Дата отправки")
.Orientation = xlRowField
.Position = 1
End With
With .PivotFields("SMS доставлено")
.Orientation = xlColumnField
.Position = 1
End With
With .PivotFields("Count-Телефон")
.Orientation = xlDataField
.Position = 1
End With
End With

' Close the connections and clean up.
cnnConn.Close
Set cmdCommand = Nothing
Set rstRecordset = Nothing
Set cnnConn = Nothing


End Sub

[doober]

Макрос проверил,все без проблем,сводная создается
Приложите файл mdb

[mrs.petrushina]

Doober, базу приложила, sms.mdb. Посмотрите, пожалуйста.
может у меня библиотеки какой не хватает?

[doober]

У вас 2 не правильные ссылки
Попробуйте у себя в базе открыть запросы,все увидите

[mrs.petrushina]

не вижу
открываются и выдают результат

[doober]

Значит у меня их нет.Макрос во вложении таблицу создает?

[mrs.petrushina]

пардон, выложила файл без подключенной библиотеки activex, вот на что у Вас ругается. вот с ней!
в excel макрос работает, в access по прежнему ошибка 91

[R Dmitry]

смотрите тут ответил

http://www.programmersforum.ru/showthread.php?t=145157