[معاند الحظ]

اخي قم بتعديل جملة الاتصال والموجودة في الملف Module1.vb
من هذي 

كود :

Dim Str As String = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=DicData.MDB;Persist Security Info=False"

الى هذي

كود :

   Dim Str As String = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=المسار الكامل لمكان ملف قاعدة البيانات;Persist Security Info=False"

مثلا

كود :

   Dim Str As String = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=D:\VB Tools\net\net\WindowsApplication5\WindowsApplication5\DicData.MDB;Persist Security Info=False"

---

الحمدلله اخوي
يسرني المساعدة