autoincrement problem

[A]

Hi
the .column..... autoincrement line gives a fault :: Item cannot be found in
the collection corresponding to the requested name or ordinal error number
3265.
Must I move the line ?
Thanks
Alfred

Set tbl12 = Nothing
Set tbl12 = New Table
With tbl12
.Name = "BdCourt"
.Columns.Append "ID", adInteger
.Columns("ID").Properties("AutoIncrement") = True
.Columns.Append "court", adVarWChar, 50
.Columns.Append "cNote", adVarWChar, 50
End With

cat1.Tables.Append tbl12

[A]

Type in .ParentCatalog = cat1 ( your name here) after .Name = "bdCourt"
Alfred
"A" <al**@mail.com> wrote in message news:dd**********@ctb-nnrp2.saix.net...

Hi
the .column..... autoincrement line gives a fault :: Item cannot be found
in the collection corresponding to the requested name or ordinal error
number 3265.
Must I move the line ?
Thanks
Alfred

Set tbl12 = Nothing
Set tbl12 = New Table
With tbl12
.Name = "BdCourt"
.Columns.Append "ID", adInteger
.Columns("ID").Properties("AutoIncrement") = True
.Columns.Append "court", adVarWChar, 50
.Columns.Append "cNote", adVarWChar, 50
End With

cat1.Tables.Append tbl12