ACCESS数据库创建结构的问题

Question

－－－－－－－
Dim DefDatabase As Database
Dim DefTable As TableDef, DefField As FieldSet DefDatabase = Workspaces(0).OpenDatabase(App.Path & "\vbeden.mdb", 0, False)
Set DefTable = DefDatabase.CreateTableDef("VB编程乐园")Set DefField = DefTable.CreateField("Name", dbText, 8)
DefTable.Fields.Append DefFieldDefDatabase.TableDefs.Append DefTableMsgBox " VB编程乐园数据库建立完成！", vbInformation
－－－－－－－－－－－－－－－－－－－－－－－－－－－－
请看以上代码，为什么会告诉我无法成功建表？？请高手指点，200分

Answer 1

为什么不用adox呢？（ado的扩展）dim cat as new catalog
dim tbl as new tablescat.activeconnection="provider=microsoft.oledb.jet.4.0(access数据库提供者）;data source='路径'"tbl.name="表名"
tbl.column.append "列名称"，'数据类型'


cat.tables.append tbl当然。要在数据环境中添加该工程的引用

Answer 2

方法如下：Dim DefDatabase As Database
Dim DefTable As TableDef, DefField As Field
Dim pPath As StringpPath = IIf(Right(App.Path, 1) = "\", App.Path, App.Path + "\")Set DefDatabase = DBEngine.OpenDatabase(pPath + "vbeden.mdb", False, False)Set DefTable = DefDatabase.CreateTableDef("VB编程乐园")Set DefField = DefTable.CreateField("Name", dbText, 8)
DefTable.Fields.Append DefFieldDefDatabase.TableDefs.Append DefTableDefDatabase.Close

Answer 3

Set DefField = DefTable.CreateField("Name", dbText, 8)
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Oh！Shit！！！
明明定义DefField为Field类，CreateField（）返回类型也是Field没错！！
可是为甚么VB6告诉我，类型不匹配？？？呵呵，郁闷！！！

Answer 4

DefField As Field改为DefField As DAO.Field