Ms access 在vba Access 2000中创建新表和字段时。获取错误数据类型转换错误

我正在尝试为Access 2000创建一个带有vba上几个字段的新表。当字段的数据类型为文本时，我可以创建表和字段，但我需要它为数字。当我将数据类型从文本更改为数字时，会出现错误数据类型转换错误。任何帮助都将不胜感激。谢谢

Public Sub CreateNewDB()

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field

'Initialize the Contractor table

Set db = CurrentDb()
Set tdf = db.CreateTableDef("new test table")

'Specify the fields
With tdf

'Create Sequence No Fied
 ' Set fld = .CreateField("Sequence No", dbText, 10) ' This works 
Set fld = .CreateField("Sequence No", dbNumber, Long INteger) ' this gives me an error 
.Fields.Append fld

End With

'save  the table
db.TableDefs.Append tdf
Set fld = Nothing
Set tdf = Nothing

 End Sub

---

请尝试dbLong而不是dbNumber

下面是在新创建的表上设置PK的代码：

Set td = CurrentDb.CreateTableDef(sLocalTableName, dbAttachSavePWD, sRemoteTableName, sConnect)
CurrentDb.TableDefs.Append td
sExec = "CREATE UNIQUE INDEX PK ON [" & sLocalTableName & "]"
For iPK = 0 To iPkfldCount - 1
    sPKfields = sPKfields & "[" & CurrentDb.TableDefs(sLocalTableName).Fields(iPK).Name & "],"
Next
sPKfields = Left(sPKfields, Len(sPKfields) - 1)     ' strip trailing comma
CurrentDb.Execute sExec & " (" & sPKfields & ")"

---

设置PK字段后，不需要索引或设置为无重复项。所有PK都是这样工作的。

谢谢您的帮助。你能再帮我一个问题吗。如何设置主键并将索引设置为“是”（无重复项）。非常感谢您的帮助！你真棒！