Dim rs1 as DAO.Recordset, rs2 as DAO.Recordset
dim i as integer
Set rs1 = CurrentDb.OpenRecordset("Table1Name",dbopensnapshot)
Set rs2 = CurrentDb.OpenRecordset("Table2Name",dbopendynaset)
rs1.MoveFirst
Do Until rs1.EOF
For i = 1 to rs1.Field("IntFieldName")
rs2.Add
rs2.Field(1) = ...