高手请指点： Text1:字段名 Text2:字段长度 Combo1:字段类型 大致程序是这样的： Dim ftype As String Dim NewDatabase As Database Dim NewTable As TableDef Dim NewField As Field

ftype = CStr("db" + combo1.Text)

Set NewDatabase = Workspaces(0).OpenDatabase("c:\Temp.mdb", 0, False) Set NewTable = NewDatabase.TableDefs("Table_1") Set NewField = NewTable.CreateField(Text1.Text, ftype, CInt(Text2.Text)) NewTable.Fields.Append NewField NewDatabase.TableDefs.Append NewTable 运行时，总是出错：类型不对。 当我把CreateField（）中的ftype 换成dbText时，就可以建立一个字符型字段。 是不是类型参数那里一定要用实际的类型名，请高手指点。。