ผมตัดทอนในส่วนที่เกี่ยวข้องมาดังนี้

Dim filename As String
Dim dbs As Database, rstQ, rstT, rstU As Recordset
            Set dbs = CurrentDb
            Set rstQ = dbs.OpenRecordset("Query", dbOpenSnapshot)
            Set rstT = dbs.OpenRecordset("TableT", dbOpenDynaset)
            Set rstU = dbs.OpenRecordset("TableU", dbOpenDynaset)
            Do Until rstQ.EOF
                    rstT.addNew
                    rstT!IDmember = rstQ!IDmember
                    rstT.update
                            rstU.addNew
                            rstU!IDmember = rstQ!IDmember
                            rstU.update
                    rstQ.MoveNext
            Loop   

Code ผมก็ใช้งานได้ดี โดยส่งข้อมูลจาก Query ไปตาราง TableT ผมจึงแปลง Code ตามความเข้าใจของตัวเอง
โดยต้องการให้ข้อมูลใน Query ส่งค่าไปอีกตาราง(TablrT)   ปรากฎว่ามัน Error ที่บรรทัดนี้ rstU.update
ซึ่งผมเข้าใจว่ามันคือการ Update ในตารางนั้น แต่มันไม่ใช่ ฝากท่านอาจารย์ หรือ เพื่อนๆ ที่เข้าใจ สอนที่ถูกต้อง
ให้ผมหน่อยครับ