اريد الكود المسؤول عن حذف حقل في قاعدة البيانات

استخدم هذا الكود لحذف حقل من جدول

Dim Cn As ADODB.Connection, Cat As ADOX.Catalog

  Set Cn = New ADODB.Connection
  Set Cat = New ADOX.Catalog

  'فتح الاتصال بقاعدة البيانات
  Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\dbase.mdb"

  ' فتح الاتصال عن طريق ADOX
  Set Cat.ActiveConnection = Cn
'حذف الحقل من الجدول بشرط ان لايكون الحقل هو Primery Key
Cat.Tables("Table_Name").Columns.Delete "Field_name"

تحياتي

شكراً لك اخي على هذا الكود الغني بخبرتكم التي عهدنا منكم عدم البخل على طالبي العلم

لي سؤال اخير في هذا الخصوص وهو كيف يمكن ان نغير في خصائص حقل معين تقبلوا تحياتي

لإضافة حقل

db.execute "ALTER TABLE a_company_data ADD reward_less_5 [nvarchar] (50) NULL"

لحذف حقل

db.execute "ALTER TABLE a_company_data drop reward_less_5 "