Bonjour, je dois convertir une application VB6 en VB.net et ADO en ADO.net

Je ne parviens pas à créer une colonne Clé primaire.
1°) Je crée une nouvelle colonne B_ID dans la table DESCR
2°) Je crée une contrainte PRIMARY KEY sur la colonne B_ID
Voici le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
'--------------------------- Table DESCR: create new column  B_ID column 
Dim AddNewCol As New OleDbCommand 
AddNewCol.CommandText = "ALTER TABLE DESCR ADD COLUMN  B_ID  integer"
AddNewCol.CommandType = CommandType.Text
AddNewCol.Connection = conn_bbl
Try<div style="margin-left:40px">AddNewCol.ExecuteNonQuery()</div>Catch e As OleDbException<div style="margin-left:40px">Log(AlwaysLog, fff & "B_ID already created")</div>End Try
'------------------------------ Define B_ID as Primary key
AddNewCol.CommandText = "ALTER TABLE DESCR ADD CONSTRAINT B_ID  PRIMARY(KEY(B_ID))"
Try<div style="margin-left:40px">AddNewCol.ExecuteNonQuery()</div>Catch e As OleDbException<div style="margin-left:40px">Log(AlwaysLog, fff & "Key setting failed")</div>End Try
'-------------------------------------------------------------------
La colonne B_ID est bien créée.
Aucune erreur détectée.
Mais la contrainte n'est pas créée.

Qu'est ce que j'ai raté ??? Merci de votre aide