[سعود]

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

كود :

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

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