كيف ؟؟ تعيين القيمة الإفتراضية لحقل بالكود

اخواني :

السلام عليكم ورحمة الله وبركاته

استطعت والفظل لله ثم لهذا المنتدى النجاح وإضافة حقل للجدول بالكود

لكن كيف احدد القيمه الإفتراضية له وجعلها = -1

 Dim DB As Database
   Dim tdfNew As TableDef
   Dim fldLoop As Field

Set DB = DAO.OpenDatabase("c:\data.mde")

 Set tdfNew = DB.TableDefs!dyly
   With tdfNew
          
       .Fields.Append .CreateField("f_mo", dbBoolean)

   End With

ولكم تحياتي