奇怪，奇怪，高分求知，对知道的人来说小菜一碟

[happy_gambler]

Private DB As Database
Private TD As TableDef
Private f As Field

Private Sub Command1_Click()
Set DB = DBEngine.CreateDatabase(App.Path & "\king.mdb", dbLangGeneral)
Set TD = New TableDef
Set f = TD.CreateField("QCODE", dbText, 50)
TD.Fields.Append f
Set f = TD.CreateField("FUC", dbText, 50)
TD.Fields.Append f
TD.Name = "bear"
DB.TableDefs.Append TD
End Sub

我能建立这个access数据库，但是access97却大不开？？
我用的引用是dao 3.6

[happy_gambler]

我已经解决，不好意思

[siyuan79]

分给我吧！
好吗？

[y1g1y1]

呵呵

[icemoon]

如果想设置为number

是写成 dbnumber 吗？

[icemoon]

Set f = TD.CreateField("FUC", dbNumber, 50)