pivot table connection access

[vavasoo]

hi

the following macro gets stuck where show below

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
Dim pc As PivotCache
Dim pt As PivotTable

con.Open "provider=microsoft.jet.oledb.4.0;" & _
"data source=C:\Users\M Varnendra\Desktop\VBA on Excel\Chapter 22\salesdb.mdb"
sql = "select * from sales"

Set pc = ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
Set pc.Recordset = rs

'''''getting stuck here
Worksheets.Add before:=Sheets(1)
Set pt = ActiveSheet.PivotTables.Add(PivotCache:=pc, _
tabledestination:=Range("a1"))

know about it?

thank

 

[Varne]

guys

whats up

rs.Open sql, con was missing. now its working