求教：DAO无法创建表

[drywell]

我使用代码创建了一个数据库后，想往里面添加表的时候怎么都建不了，请高手帮看一下，谢谢。代码如下：

Private Sub CreatTable_Click()
Dim DBname As String, Nname As String
Nname = "field_1"
DBname = App.Path + "\data\" + "test.mdb"
Dim Defdb As Database
Dim NewTable As TableDef
Dim NewField As Field
Set Defdb = Workspaces(0).OpenDatabase(DBname, 0, False)
Set NewTable = Defdb.CreateTableDef("Table_1")
Set NewField = NewTable.CreateField(Nname, dbText,6) '创建一个字符型的字段，长度为6个字符
NewTable.Fields.Append NewField '字段追加
Defdb.TableDefs.Append NewTable '表追加
End Sub

代码执行到Set NewField = NewTable.CreateField(Nname, dbText,6) 这一句时出现错误，提示：“实时错误 '13' ，类型不匹配”,不知如何处理，哪位高人指点一下，为什么会这样呢？

[henry520]

帮 顶！！