report random query

[patatrac]

I would extract from Report1 when open IDs and saves in table answer , but don't know the way...
example but dont work
in open event
Dim db As Database, rst As Recordset, rst2 As Recordset
Dim ID As String, TheValues As String
Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT ID_Body FROM 01_Body ")
Set rst2 = db.OpenRecordset("Answer")
rst.MoveFirst
ID_Body = rst!ID_Body
'Let ID = rst!Unique_ID
Do While Not rst.EOF
rst2.AddNew
rst2("ID_Body").Value = rst("ID_Body").Value
rst2.Update


rst.MoveNext
Loop

[patatrac]

create
1 Report_print (is query create table)
1 TempTableForReports
and set recordsource 2 reports in table.
thanks all