(06-08-17, 01:52 AM)سعود كتب :

بعد اضافة الريفيرنس  كما بالصورة اعلاه
كتبت الكود

كود :

Public Function cdb(ByVal DatabaseFullPath As String) As Boolean
       Dim bAns As Boolean
       Dim cat As New ADOX.Catalog()
       Try

           Dim sCreateString As String
           sCreateString =
                          "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & _
                          DatabaseFullPath & ";Jet OLEDB:Database Password=pass;"
           cat.Create(sCreateString)

           bAns = True

       Catch Excep As System.Runtime.InteropServices.COMException
           bAns = False

       Finally
           cat = Nothing
       End Try
       Return bAns
   End Function

لاحظت انه ينشيء ملف اكسس قديم 
هل من حل؟

(06-08-17, 09:58 PM)أبو نوره كتب : مرحبا اخى سعود

لم اجد المشكله عندي

ارفقت لك المشروع مع دمج ملف Interop.ADOX.dll احتياط لاحتمال اختلافه مع ما عندك

(07-08-17, 01:26 AM)أبو نوره كتب : تسلم اخى سعود
صراحه لا اعلم لانه من البدايه عندي مشي تمام

مرحبا اخي حريف
ما الهدف من ترتيب الحقول
لانه من الاستعلام تستطيع تحدد الترتيب الذي ياتي مع النتيجه
واذا كان لما تفتح الاكسس تراها مثل ما تريد فراح تكون امامك تستطيع ترتبها من الاكسس بسهوله