Problème type field : dbText ou rien

Private Sub basMacro1()

On Error GoTo err
    Dim oDb As DAO.Database
    Dim otbl As DAO.TableDef
    Dim ofld As DAO.Field
    Set oDb = CurrentDb
    Set otbl = oDb.TableDefs("table1")
    'Etape 1 : Créer le champ
    Set ofld = otbl.CreateField("au" & Date)
    'Etape 2 : Définit les propriétés
    ofld.Type = dbNumeric
    ofld.AllowZeroLength = True 'Chaine vide autorisée : oui
    ofld.Required = False         'Null interdit : non
    'Etape 3 : Ajout du champ à la table
    otbl.Fields.Append ofld
    'Rafraichit la collection
    otbl.Fields.Refresh
    MsgBox ofld.Name
    'suppression champ
    otbl.Fields.Delete ofld.Name
Exit Sub
err:
    Select Case err.Number
    'Si impossible de trouver l'élément dans la collection
    Case 3265
        MsgBox "impossible de trouver ta table: " & strT_archiveshdv
    Case 3010, 3191
        MsgBox "Le champ " & Date & " existe déjà"
    Case Else: MsgBox "Erreur inconnue. Avez-vous fermé la table?"
    End Select