[elgokr]

ارفق السورس اخى يوسف

حتى يتم الاطلاع عليه ومعرفة السبب بشكل اوضح

ومشيراً الى رد اخى سعود 

فهو رد مفيد كثيراً 

فقبل اتمام ارفاق السورس قم بالتعديلات كالتالى

تعال على سطر الاتصال

كود :

   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\Database.accdb"

استبدله بالتالى

كود :

   Dim str As String = "provider=microsoft.ace.oledb.15.0;data source=" & Application.StartupPath & "\Database.accdb"

طبعاً ستجعل امشروع على 86

وستقوم بتثبيت البرنامج التالى

https://www.microsoft.com/en-us/download...x?id=54920

وبكده ستحل المشكلة ان شاء الله

تحياتى لك

وتمنياتى لك التوفيق