Public connMiner As New adodb.Connection
connMiner.CommandTimeout = 1000
For i = 0 To maxSteps
psrCode.connMiner.Execute aActions(i), , 132
Next
---Here'se the array that populates aActions
aActions(0) = "psrOverheadMakeTableQry('" & strActualsPeriod & "')"
aActions(1) = "psrOverheadWarehouseUpdateQry"
aActions(2) = "psrExpenseDirectMakeTableQry('" & strActualsPeriod & "', '" & GeneralRoutines.FirstDirect & "','" & GeneralRoutines.FirstIndirect & "')"
aActions(3) = "psrExpenseDirectActualWarehouseUpdateQry"
aActions(4) = "psrExpenseReimbMakeTableQry('" & strActualsPeriod & "', '" & GeneralRoutines.FirstReimb & "','" & GeneralRoutines.FirstDirect & "')"
aActions(5) = "psrExpenseReimbWarehouseUpdateQry"
aActions(6) = "psrLaborActualMakeTableQry('" & strActualsPeriod & "')"
aActions(7) = "psrLaborActualWarehouseUpdateQry"
aActions(8) = "psrOERBillMakeTableQry('" & strActualsPeriod & "','" & GeneralRoutines.FirstRevenue & "')"
aActions(9) = "psrOERBillWarehouseUpdateQry"
aActions(10) = "psrOERRevMakeTableQry('" & strActualsPeriod & "','" & GeneralRoutines.FirstRevenue & "','" & GeneralRoutines.FirstReimb & "')"
aActions(11) = "psrOERRevWarehouseUpdateQry"
aActions(12) = "psrARAgingActivePeriodMakeTableQry('" & strActualsPeriod & "','" & strActualsPeriodEndDate & "')"
aActions(13) = "psrARAgingWarehouseUpdateQry"
aActions(14) = "psrARLedgerActivePeriodMakeTableQry('" & strActualsPeriod & "','" & strActualsPeriodEndDate & "')"
aActions(15) = "psrARLedgerWarehouseUpdateQry"
aActions(16) = "psrUnbilledMakeTableQry('" & strActualsPeriod & "','" & strActualsPeriodEnumerator & "')"
aActions(17) = "psrUnbilledWarehouseUpdateQry"
aActions(18) = "psrProvisionsWarehouseUpdateQry('" & strActualsPeriod & "')"
aActions(19) = "psrWarehouseCurUpdateQry('" & strActualsPeriod & "')"