I know it's an old thread but in case you're still looking for an answer here's something that may help. I used both DAO and SQL. What this does is duplicate all the records in subquote for a certain a quote.
Dim tempQuoteID As Integer, tb As DAO.Recordset
tempQuoteID = Nz(DMax("QuoteID"...