把下面的过程放到任何一个模块中PublicSubCreateTabel(rstAsDAO.Recordset,TabelNameAsString)DimTSAsTableDefsDimTAsTableDefDimFAsDAO.FieldSetTS=CurrentDb.TableDefsSetT=NewTableDefrst.MoveFirstForEachFInrst.FieldsT.Fields.AppendT.CreateField(F.Name,F.Type,F.Size)NextT.Name=TabelNameTS.AppendTSetTS=NothingSetT=NothingSetF=NothingEndSub具体的调用方式就是CreateTabel recorset对象,表名就可以在当前数据库中生成一个新表了结构和recorset相同但没有数据，如果你要复制数据，一行SQL就搞定了
