How To Atomically Create Graphs Using Vba

I have a number of deliverables and want to create a graph for each one,
I can get a list of deliverable via a select statement but not sure how to create a graph from that

For example I have this sql statement as the row source for a graph

Code:SELECT Team.TeamLeadName AS Expr1, FormatPercent(Avg(RawData.PercentComplete)) AS CurrentProgressFROM Team, RawDataWHERE (((RawData.TeamLeadNumber)=[Team].[TeamLeadNumber]) AND ((RawData.DeliverableDesc)="RACE Off-the-runs v1"))GROUP BY Team.TeamLeadName;

"RACE Off-the-runs v1" is a deliverable

I had the idea of taking the list of deliverables and iterating through them, for each iteration set the row source for a graph as

Code:SELECT Team.TeamLeadName AS Expr1, FormatPercent(Avg(RawData.PercentComplete)) AS CurrentProgressFROM Team, RawDataWHERE (((RawData.TeamLeadNumber)=[Team].[TeamLeadNumber]) AND ((RawData.DeliverableDesc)="deliverableNAME"))GROUP BY Team.TeamLeadName; where deliverableNAME = the current deliverable in the iteration

The problem is
1)I’m not sure if/how to set the row source with a variable (in this case the variable is deliverableNAME)
2)How would I make sure that each iteration its creating a new graph, rather then just overwriting the existing one. Basically how to have each iteration create a new graph.
3)How would I store these graphs, each one on its own form, can they all be on one form (access seems to limit the height a form to 22 inches)