Dim TBX As TableDef
Dim i
Dim ii
i = Forms("kk").Text8
ii = Forms("kk").Text13
Dim a

Dim rst As Recordset
Set TBX = DBEngine(0)(0).CreateTableDef("DATE1")
TBX.Fields.Append TBX.CreateField("date1", dbDate, 100)

On Error Resume Next
DBEngine(0)(0).TableDefs.Append TBX
Set rst = DBEngine(0)(0).OpenRecordset("date1", dbOpenDynaset, dbAppendOnly)
          a = i
          For a = i To ii
                                    rst.AddNew
                                    rst("date1") = i
                                    rst.update
                                    i = i + 1
          Next a
                             rst.update
      rst.Close
Set rst = Nothing

มีทั้งการสร้าง TABLE และ APPEND ประยุกต์เอานะครับ

ขอบคุณมาก เลยค่ะ