怎么用vba在access中創(chuàng)建新表？

把下面的過(guò)程放到任何一個(gè)模塊中 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