ใน Format event procedure ของ Detail section ให้เขียนโค้ดลักษณะนี้ครับ

Private Sub Detail_Format(....)
   Dim S as String
   Dim DB as DAO.Database
   Dim RS as DAO.Recordset

   set DB = CurrentDB
   Set RS = DB.OpenRecordset("select ฟิลด์ชื่ออุปกรณ์ from ชื่อเทเบิล where ฟิลด์รหัสพนักงาน = " + Me.เท็กซ์บ็อกซ์รหัสพนักงาน + "' ")
   Do Until RS.EOF
      S = S + iif(S = "","",", ") + RS!ฟิลด์ชื่ออุปกรณ์
      RS.MoveNext
   Loop
   RS.Close: Set RS = Nothing
   Me.เท็กซ์บ็อกซ์ที่แสดงรายชื่ออุปกรณ์

End Sub