[FONT=Courier New] ' Instantiate the parent recordset. [/FONT]
[FONT=Courier New] Set rsEmployees = db.OpenRecordset("Employees")[/FONT]
[FONT=Courier New] … Code to move to desired employee[/FONT]
[FONT=Courier New] ' Activate edit mode.[/FONT]
[FONT=Courier New] rsEmployees.Edit[/FONT]
[FONT=Courier New] ' Instantiate the child recordset.[/FONT]
[FONT=Courier New] Set rsPictures = rsEmployees.Fields("Pictures").Value [/FONT]
[FONT=Courier New] ' Add a new attachment.[/FONT]
[FONT=Courier New] rsPictures.AddNew[/FONT]
[FONT=Courier New] rsPictures.Fields("FileData").LoadFromFile "EmpPhoto39392.jpg"[/FONT]
[FONT=Courier New] rsPictures.Update[/FONT]
[FONT=Courier New] ' Update the parent record[/FONT]
[FONT=Courier New] rsEmployees.Update[/FONT]