แต่ละเท็กซ์ไฟล์มีจำนวนฟิลด์/ชื่อฟิลด์/ประเภทข้อมูลเหมือนกันไหม ถ้าเหมือนกันหมด ก็อปปี้เท็กซ์ไฟล์เป็นไฟล์ชั่วคราว(สมมุติชื่อ T.txt) เทเบิลก็ให้ลิงค์ไปยัง T.txt   พอจะเปลี่ยนชื่อ ก็ลบ T.txt แล้วก็อปปี้ไฟล์อื่นมาเป็น T.txt แทน และ Refresh Link ตัวเทเบิลอีกครั้ง ผมว่าจะง่ายกว่า โค้ดก็คือ

Kill "เท็กซ์ไฟล์ชั่วคราว"
Name "เท็กซ์ไฟล์ใหม่", "เท็กซ์ไฟล์ชั่วคราว"
CreateObject("Scripting.filesystemobject").CopyFile "เท็กซ์ไฟล์ใหม่", "เท็กซ์ไฟล์ชั่วคราว"
CurrentDB.TableDefs("ชื่อเทเบิล").RefreshLink