I tray to make it: in report1 event on load
Dim db As Database, rst As Recordset, rst2 As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT ID_Body FROM 01_Body ")
Set rst2 = db.OpenRecordset("Answer")
rst.MoveFirst
Me.ID_Body.Value = rst!ID_Body
'Let ID = rst!Unique_ID
Do While...