Run Time Error 3001: Invalid Argument (1 Viewer)

I've been experiencing this error and I don't know the reason why. I've checked my syntax and it looks good. Any suggestions?

Private Sub CreateBOMTable()
Dim curDatabase As DAO.Database
Dim tblBOM As DAO.TableDef
Dim colMCN As DAO.Field
Dim colPartType As DAO.Field
Dim colDescription As DAO.Field
Dim colLCP As DAO.Field
Dim colMPN As DAO.Field

Set curDatabase = CurrentDb
Set tblBOM = curDatabase.CreateTableDef("BOM")

Set colMCN = tblBOM.CreateField("MCN", DB_TEXT)
colMCN.Attributes = dbAutoIncrField
tblBOM.Fields.Append colMCN

Set colPartType = tblBOM.CreateField("Part Type", DB_TEXT)
colPartType.Attributes = dbAutoIncrField
tblBOM.Fields.Append colPartType

Set colDescription = tblBOM.CreateField("Description", DB_TEXT)
colDescription.Attributes = dbAutoIncrField
tblBOM.Fields.Append colDescription

Set colLCP = tblBOM.CreateField("Life Cycle Phase", DB_TEXT)
colLCP.Attributes = dbAutoIncrField
tblBOM.Fields.Append colLCP

Set colMPN = tblBOM.CreateField("MPN Status", DB_TEXT)
colMPN.Attributes = dbAutoIncrField
tblBOM.Fields.Append colMPN

curDatabase.TableDefs.Append tblBOM ' error shows here
MsgBox "A table named BOM has been created"

End Sub

First of you cannot have more than 1 Autoincrement (Autonumber) in a table and it has to be Long Integer not text.

Here is som code samples you can look at: http://allenbrowne.com/func-dao.html#CreateTableDAO

As for your code it can be written something like this:


JR