Insertion de champs dans une base de donnée

Bonjour,
J'ai développé une application avec vb6 qui accède à une base de donnée Access
Je souhaiterai insérer dans une table existante, un nouveau champ.
J'ai mis la procédure suivante :
Set db = New ADODB.Connection
db.Provider = "Microsoft.jet.oledb.4.0"
db.ConnectionString = CheminBase & MaBd
db.Open

On Error GoTo AlterTableX1_Error
nomchamp = ""
nomchamp = "mt" & TAXE.Text 'val
If TAXE.Text = "" Then
MsgBox "Erreur, " & " veuillez indiquer le nom de la taxe à créer ! ! !", vbInformation, Space(28) & "ATTENTION"
Taux.Text = ""
Exit Sub
End If
If MsgBox("Créer ce nouveau champ ?", vbYesNo, Space(10) & "INFORMATION") = vbNo Then Exit Sub
db.Execute "ALTER TABLE DétailsC50 ADD COLUMN " & nomchamp & " CURRENCY;"
'ALTER TABLE DétailsC50
Call deconnect
nomchamp = ""
Taux.Text = ""
Exit Sub
Mon nouveau champ est bien crée, mais à la fin. Or, je voudrai que ce champ soit inséré en avant dernière position (le dernier champ étant un champ commentaires). Es ce possible ?

Je vous remercie de votre aide
Bien Cordialement

Michel97600