With rstReports

    .ActiveConnection = con
    .Source = "SELECT * " & _
            "FROM nr0810_tblNationalReportTableDefs " & _
            "ORDER BY CAST(TableID AS int) DESC;"
    .CursorType = adOpenForwardOnly
    .LockType = adLockReadOnly
    .Open

End With

Do While Not rstReports.EOF
    
    Set cmd = New ADODB.Command
    
    With cmd
    
        .ActiveConnection = con
        .CommandType = adCmdStoredProc
        .CommandTimeout = 300
        .CommandText = rstReports("StoredProcedure")
    
    End With
    
    Set rst = cmd.Execute
    
    OutputADORecordSetToWorksheet rst, rstReports("Title"), rstReports("TableID"), rstReports("MainGroup"), rstReports("MultipleGroupings"), rstReports("ChartType"), rstReports("ChartTotals")
    
    rst.Close
    
    Set rst = Nothing
    
    Set cmd = Nothing
    
    rstReports.MoveNext
    
Loop

With rstReports

    .ActiveConnection = con
    .Source = "SELECT top 2 * " & _
            "FROM tlkpNationalReportTableDefinitions " & _
            "ORDER BY CAST(TableID AS int) asc;"
    .CursorType = adOpenForwardOnly
    .LockType = adLockReadOnly
    .Open

End With

Do While Not rstReports.EOF
    
    Set cmd = New ADODB.Command
    With cmd
        .ActiveConnection = con
        .CommandType = adCmdStoredProc
        .CommandTimeout = 300
        .CommandText = rstReports("StoredProcedure")
    End With
    
    cmd.Parameters.Append cmd.CreateParameter("@PICUOrg", adVarChar, adParamInput, 50, Null)
    
    Set rst = cmd.Execute
    
    OutputADORecordSetToWorksheet rst, rstReports("Title"), rstReports("TableID"), rstReports("MainGroup"), rstReports("MultipleGroupings"), rstReports("ChartType"), rstReports("ChartTotals")
    
    rst.Close
    
    Set rst = Nothing
    
    Set cmd = Nothing
    
    rstReports.MoveNext
    
Loop

Function PartCost(PN As String) As Single
'SkipVought/2009 Aug 18/
'--------------------------------------------------
' Access: A010PROD.FPRPTSAR.READ
'--------------------------------------------------
    Dim sConn As String, sSQL As String, sServer As String
    Dim rst As ADODB.Recordset, cnn As ADODB.Connection, cmd As ADODB.Command
    
    Set rst = New ADODB.Recordset
    Set cnn = New ADODB.Connection
    Set cmd = New ADODB.Command

    sServer = "A010PROD"
    cnn.Open "Driver={Microsoft ODBC for Oracle};" & _
               "Server=" & sServer & ";" & _
               "Uid=/;" & _
               "Pwd="
    
    sSQL = sSQL & "SELECT COST"
    sSQL = sSQL & vbLf
    sSQL = sSQL & "FROM FPRPTSAR.PART_MASTER"
    sSQL = sSQL & vbLf
    sSQL = sSQL & "WHERE PART_ID=?"
        
    Debug.Print sSQL
        
    With cmd
        .CommandText = sSQL
        .CommandType = adCmdText
        .Prepared = True
        
        .Parameters.Append .CreateParameter( _
            Name:="PART_ID", _
            Type:=adChar, _
            Direction:=adParamInput, _
            Size:=16, _
            Value:=Trim(PN))
        
        .ActiveConnection = cnn
        
        Set rst = .Execute
    End With
                          
    On Error Resume Next
    
    rst.MoveFirst

    If Err.Number = 0 Then
        PartCost = rst(0)
    Else
        PartCost = 0
    End If
    
    rst.Close
    cnn.Close
    
    Set cmd = Nothing
    Set rst = Nothing
    Set cnn = Nothing
End Function