ผมใช้ query ไม่แน่ใจว่าจะใช่หรือไม่
ลองดูได้ครับ Download ที่นี่
http://www.freefilehosting.net/download/3j65f

ดูที่ query ชื่อ "แสดงQuery" "แสดงReport" "แสดงForm" "แสดงTable"

ทำไมไม่ใช้ Tools > Analyze > Documenter

วิธีที่คุณ YEARAM บอกผมลองทำ เพื่อจะประหยัดหน้า print เนื่องจากจัดรูปแบบรายงานได้
แต่ติดที่ ไม่รู้จะติดตั้ง ADODB อย่างไรครับ

(user denide type not defined)

ลอกเขามา ปรับปรุงเองนิดหน่อย เผื่อจะมีประโยชน์บ้าง
ทำให้เข้าใจ DAO มากขึ้น ลองเล่นดูครับ

Sub TB()
Dim TBX As TableDef
Dim TbRUN As Integer
Dim FlRun As Integer
Dim RST As Recordset
Set TBX = DBEngine(0)(0).CreateTableDef("TableDB")

TBX.Fields.Append TBX.CreateField("tablename", dbText, 100)
TBX.Fields.Append TBX.CreateField("col", dbText, 100)
TBX.Fields.Append TBX.CreateField("FS", dbText, 100)
TBX.Fields.Append TBX.CreateField("TYP", dbText, 100)
TBX.Fields.Append TBX.CreateField("AT", dbText, 100)
TBX.Fields.Append TBX.CreateField("OR", dbText, 100)

On Error Resume Next
DBEngine(0)(0).TableDefs.Append TBX
Set RST = DBEngine(0)(0).OpenRecordset("tabledb", dbOpenDynaset, dbAppendOnly)

For TbRUN = 0 To DBEngine(0)(0).TableDefs.Count - 1
    For FlRun = 0 To DBEngine(0)(0).TableDefs(TbRUN).Fields.Count - 1

                            RST.AddNew
                            RST("tablename") = DBEngine(0)(0).TableDefs(TbRUN).name
                             RST("col") = DBEngine(0)(0).TableDefs(TbRUN).Fields(FlRun).name
                             RST("FS") = DBEngine(0)(0).TableDefs(TbRUN).Fields(FlRun).Size
                             RST("TYP") = DBEngine(0)(0).TableDefs(TbRUN).Fields(FlRun).type
                             RST("AT") = DBEngine(0)(0).TableDefs(TbRUN).Fields(FlRun).Attributes
                           RST("OR") = DBEngine(0)(0).TableDefs(TbRUN).Fields(FlRun).DefaultValue
                           
                             RST.update
    Next FlRun
Next TbRUN
Set RST = Nothing
End Sub