[ابراهيم ايبو]

السلام عليكم
اخي انا متأسف لك ولكل من يقوم بتحميل المثال كوني تركت كود مسار الاتصال على حاله 
قم بتغيير هذا السطر وهو جملة الاتصال من هذا :

كود :

   Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\Users\IBRAHIM\Desktop\vbArab\SaadNew\SaadNew\bin\Debug\Saad1.mdb;persist security info=false;")

استبدله بهذا السطر اكسس 2003

كود :

   Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Saad1.mdb;persist security info=false;")

او ههكذا ان كانت نسخة الاكسس 2007 فما فوق

كود :

Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= Saad1.mdb;persist security info=false;")