مساعدة في كود انشاء جدول في الاكسيس

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

اخواني الاعزاء

لدي برنامج بالفيجوال بيسك وبه قاعدة بيانات أرغب بكود ينشأ لي جدول بخصائص معينه :

فرضا : الحقل 1 يكون Integer ، الحقل 2 يكون TEXT من 6 خانات فقط ، الحقل 3 يكون رقم مزدوج و تنسيقه ( يكون قياسي و المنازل العشرية صفر )

ولأنني في برنامجي هذا استخدمت في تعريفي للكائنات

1 - المتغير CnFTD : الخاص بربط البرنامج بقاعدة البيانات Global CnFTD As ADODB.Connection

2- المتغير Rs1 : الخاص بالسجلات Global Rs1 As New ADODB.Recordset

ولأن البرنامج المرفق جزء من برنامج كبير لا يمكنني تغير وضع تعريف المتغيرات السابقه الى الـ DATABASE أو غيره

وأيضا كود يبحث عن الجدول هل هو موجود أم لا وإذا لم يكن موجودا سينشئه لي عن طريق ADODB

وحيث أنني بحثت في الموقع عن طريقه لإنشاء الجداول وجدت مايلي :

Dim dbsNorthwind As Database

Dim tdfNew As TableDef

Dim prpLoop As Property

Set dbsNorthwind = OpenDatabase("Northwind.mdb")

' Create a new TableDef object.

Set tdfNew = dbsNorthwind.CreateTableDef("Contacts")

With tdfNew

' Create fields and append them to the new TableDef

' object. This must be done before appending the

' TableDef object to the TableDefs collection of the

' Northwind database.

.Fields.Append .CreateField("FirstName", dbText)

.Fields.Append .CreateField("LastName", dbText)

.Fields.Append .CreateField("Phone", dbText)

.Fields.Append .CreateField("Notes", dbMemo)

' Append the new TableDef object to the Northwind

' database.

dbsNorthwind.TableDefs.Append tdfNew

End With

dbsNorthwind.Close

أريد تحوير الكود السابق ليتلائم مع البرنامج لدي بدون استخدام الـ Database في الكود ( Dim dbsNorthwind As Database )

--------------------------

ملاحظة مرفق ملف rar حجمه (177 ك.ب)

Project.rar