Dim cmd As ADODB.Command
    Set cmd = CreateAdoCommand(adoConn, appId, refDate)

    Dim headers As ADODB.Recordset
    Set headers = cmd.Execute

    Dim details As ADODB.Recordset
    Set details = headers.NextRecordset

    Dim optFields As ADODB.Recordset
    Set optFields = details.NextRecordset

    Dim headerSheet As Excel.Worksheet
    Set headerSheet = wb.Worksheets(1)
    headerSheet.Range("A1").CopyFromRecordset headers

    Dim detailSheet As Excel.Worksheet
    Set detailSheet = wb.Worksheets.Add
    detailSheet.Cells.CopyFromRecordset details

    Dim optFieldSheet As Excel.Worksheet
    Set optFieldSheet = wb.Worksheets.Add
    optFieldSheet.Cells.CopyFromRecordset optFields