怎么在access里面追加表，来者有分急！（50分）

Question

Private Sub Command1_Click()
    Dim tdExample As TableDef
    Dim fldForeName As Field
    Dim fldSurname As Field
    Dim fldDOB As Field
    Dim fldDO As Field
    Dim fldFurtherDetails As Field
    Dim dbDatabase As Database
    Dim sNewDBPathAndName As String
    
    sNewDBPathAndName = "c:\windows\temp\" & Text1.Text & ".mdb"
    Set dbDatabase = CreateDatabase(sNewDBPathAndName, dbLangGeneral, dbEncrypt)
    Set tdExample = dbDatabase.CreateTableDef(Text1.Text)    Set fldForeName = tdExample.CreateField("Fore_Name", dbText, 20)
    Set fldSurname = tdExample.CreateField("Surname", dbText, 20)
    Set fldDOB = tdExample.CreateField("DOB", dbDate)
    Set fldFurtherDetails = tdExample.CreateField("Further_Details", dbMemo)
    Set fldDO = tdExample.CreateField("海哥", dbText, 20)
    tdExample.Fields.Append fldForeName
    tdExample.Fields.Append fldSurname
    tdExample.Fields.Append fldDOB
    tdExample.Fields.Append fldFurtherDetails
    tdExample.Fields.Append fldDO
    dbDatabase.TableDefs.Append tdExample
    MsgBox "New .MDB Created - '" & sNewDBPathAndName & "'", vbInformation用以上代码可以建立一个完整的数据结构，但是我想在把以上的代码改一下，可以用程序向数据库里面添加或删除表！！谢谢各位仁兄了！

Answer 1

用sql的表操作命令
建表create table
删除表drop table
具体语法就不写了

Answer 2

建表
========================
CREATE TABLE TZ (
                ID  int IDENTITY(1,1) PRIMARY KEY,
                Z_name varchar(20) NOT NULL)===========================删除表Drop Table TZ

Answer 3

生成表
dbDatabase.Execute ""CREATE TABLE tablename (FirstField TEXT 255, SecondField CURRENCY, ThirdField DATETIME, FourthField LONG);"删除表
dbDatabase.Execute "Drop Table tablename"

Answer 4

dbDatabase.Execute "CREATE TABLE tablename (FirstField TEXT 255, SecondField CURRENCY, ThirdField DATETIME, FourthField LONG);"