' код в самой книге Excel
  Set cn = New ADODB.Connection
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=E:\20050824\data.mdb;Mode=Share Deny None"
  
  stSQL = "select * from tbl_Rest where RepDate >= " & stdate1 & _
    " and RepDate <= " & stdate2
  Debug.Print stSQL
  
  Set rs = New ADODB.Recordset
  rs.Open stSQL, cn
  MsgBox rs.RecordCount
  
  
  Set Sheets("Штуки").PivotTables("test2").PivotCache.Recordset = rs
  Sheets("Штуки").PivotTables("test2").PivotCache.Refresh

' код в MS Access
  Set cn = New ADODB.Connection
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=E:\20050824\data.mdb;Mode=Share Deny None"

  'cn.Open Replace(CurrentProject.Connection.ConnectionString, "app.", "data.")
  
  Debug.Print "select * from tbl_Rest where RepDate >= " & Дата1Стр & _
    " and RepDate <= " & Дата2Стр
  Set rs = New ADODB.Recordset
  rs.Open "select * from tbl_Rest where RepDate >= " & Дата1Стр & _
    " and RepDate <= " & Дата2Стр, cn
  Debug.Print rs.RecordCount
    
  ExcelModule.ОткрытьКнигу (CurrentProject.Path & "\report\test.xls")
  ExcelModule.app.Visible = True

  'собственно открфтая книга
  wb.Activate
  wb.Sheets("Штуки").Select
  '!!!!!!!!!!!!!!!!!!!!!!!тут возникает ошибка
  Set wb.Sheets("Штуки").PivotTables("test2").PivotCache.Recordset = rs
  wb.Sheets("Штуки").PivotTables("test2").PivotCache.Refresh

Runtime error '1004'
Application-defined or object-defined error