Here's the code:
Dim cnn as New ADO.Connection
Dim rst as New ADO.Recordset
strSQL = "SELECT qryChargeback.Sort, qryChargeback.[Process Level], qryChargeback.PLDesc, qryChargeback.ProdLineDesc, qryChargeback.Year, qryChargeback.[Reason Code 2], qryChargeback.Desc...