// Open the connection.
let cnnConn = New ADODB.Connection
cnnConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0"
cnnConn.Open "C:\\perfdate\\record.mdb"
                                        
// Set the command text.
let cmdCommand = New ADODB.Command
let cmdCommand.ActiveConnection = cnnConn
cmdCommand.CommandText = "Select Speed, Pressure, Time From DynoRun"
cmdCommand.CommandType = adCmdText
cmdCommand.Execute()
                                        
// Open the recordset.
let rstRecordset = New ADODB.Recordset
let rstRecordset.ActiveConnection = cnnConn
rstRecordset.Open(cmdCommand)
                                        
// Create a PivotTable cache and report.
let objPivotCache = ActiveWorkbook.PivotCaches.Add(xlExternal)
let objPivotCache.Recordset = rstRecordset
objPivotCache.CreatePivotTable(Range("A3"),"Performance")
                                        
let pt = ActiveSheet.PivotTables("Performance")
pt.SmallGrid = false
let pi1 = ActiveSheet.PivotTables("Performance").PivotFields("Pressure")
pi.Orientation = xlRowField
pi.Position = 1
                                        
let pi2 = ActiveSheet.PivotTables("Performance").PivotFields("Speed")
pi2.Orientation = xlColumnField
pi2.Position = 1
                                        
let pi3 = ActiveSheet.PivotTables("Performance").PivotFields("Time")
pi3.Orientation = xlDataField
pi3.Position = 1
                                        
// Close the connections and clean up.
cnnConn.Close()
cmdCommand = Nothing
rstRecordSet = Nothing
cnnConn = Nothing
                                        
}