Createfield de DAO et dbFloat

Bonjour tout le monde, je ne sais vraiment pas qu'est ce qui se passe, mais DAO n'accepte pas ces constantes, plutot la constante "dbFloat" du type du champs de la methode createfield.
Pouvez vous m'aider a regler ce problem ?
merci

   Set TD = DB1.CreateTableDef(arr(j).tblName)
    With TD
      .fields.Append .CreateField("field1", dbFloat)
    End With
  DB1.TableDefs.Append TD
  MsgBox ("Field created")