添加表的问题!

[gx_sunny]

我在VB中写了一段程序想在一个ACCESS数据库中新添加一张表,程序执行没有任何错误,但是就是没有新表产生,为什么?
源码如下:
Dim Mydb As Database
Dim Mytable As TableDef
set mydb=OpenDabase(App.Path & "\guangda",,false,"")
Set Mytable = Mydb.CreateTableDef("FZ")
Mytable.CreateField("FZQDM", dbText, 50)
Mytable.CreateField("FCJSS", dbText, 50)

[amstar]

Set Mytable = Mydb.CreateTableDef("FZ"） 好像是在括号里带字段名和类型吧!!!

[active]

Set tdfNew = mydb.CreateTableDef("fz")

With tdfNew
' Create fields and append them to the new TableDef
' object. This must be done before appending the
' TableDef object to the TableDefs collection of the
' Northwind database.
.Fields.Append .CreateField("FirstName", dbText)
.Fields.Append .CreateField("LastName", dbText)
.Fields.Append .CreateField("Phone", dbText)
.Fields.Append .CreateField("Notes", dbMemo)

mydb.TableDefs.Append tdfNew
End With