Créer une base de données Access en vb.net

Bonjour,

Voila plusieurs dizaines de minutes qu'un truc m'énerve au plus haut point. Je cherche à générer une base de données Access en VB.Net. Un champ devrait avoir la propriété Numéro auto. Et ben malgré plusieurs codes sources que j'ai vu, aucun ne fonctionne! Si quelqu'un pouvait m'éclairer. Voici le code :

        Dim adCat As New ADOX.Catalog
        Dim tb As New ADOX.Table
        adCat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=demo.mdb")

        tb.Name = "Contacts"

        Dim col As New ADOX.Column
        col.Name = "Numéro"
        col.Type = ADOX.DataTypeEnum.adInteger
        tb.Columns.Append(col)

        tb.Columns.Append("Nom", ADOX.DataTypeEnum.adVarWChar, 50)
        tb.Columns.Append("Prénom", ADOX.DataTypeEnum.adVarWChar, 50)
        tb.Keys.Append("PK_Numero", ADOX.KeyTypeEnum.adKeyPrimary, "Numéro")

        adCat.Tables.Append(tb)

Donc le champ Numéro devrait être automatique. D'après plusieurs forums, il faudrait mettre ça comme :

col.Properties("AutoIncrement").Value = True

Et ben VB.Net ne veut rien savoir, il me dit que cette propriété n'est pas présente dans la liste, qui est même vide (si je fais un col.Properties.Count ça me renvoie 0). Ca commence vraiment à m'énerver, alors si quelqu'un a une indication, je suis preneur.