怎么用vba在access中创建新表

把下面的过程放到任何一个模块中 Public Sub CreateTabel(rst As DAO.Recordset, TabelName As String) Dim TS As TableDefs Dim T As TableDef Dim F As DAO.Field Set TS = CurrentDb.TableDefs Set T = New TableDef rst.MoveFirst For Each

table是只有cell没有cells，cell也没有value，range.text是对的，下面是可以用的代码

Dim myTab As Table

Set myTab = Documents(1).Tables(1)

myTab.Cell(1, 1).Range.Text = 1123123

---