vbs access autoincrement

[blubb]

hello,

at first, sorry for my bad english.

does somebody now how to create a autoincrement field in access.

Set objColumn = CreateObject("ADOX.Column")
objColumn.Name = "Hallo"
objColumn.Type = 2
objColumn.Properties("Autoincrement") = True

it doesn't work like this

thx blubb