I try to use "AppendDeleteField" but I received this error -> Sub or Function not defined <-

[regis]

This is my code.. And When I execute this code I received the error "Sub or Function not defined" Why?

Dim dbsDonnee As Database
Dim tdfTable1 As TableDef
'Dim fldLoop As Field

Set dbsDonnee = OpenDatabase("C:\Test.mdb")
Set tdfTable1 = dbsDonnee.TableDefs!Table1

' Add three new fields.
AppendDeleteField tdfTable1, "APPEND", _
"E-mail", dbText, 50
AppendDeleteField tdfTable1, "APPEND", _
"Http", dbText, 80
AppendDeleteField tdfTable1, "APPEND", _
"Quota", dbInteger, 5

dbsDonnee.Close

Thanks
Redg