[larbihamri]

السلام عليكم كيف الحال اخي عبد العزيز ، اتمنى انك بتمام العافية 
تعقيبا على اساتذتنا الكرام هناك طريقة للإتصال تغني عن الإتصال كل مرة و هي الاتصال من ملف appConfig
 قم بكتابة الكود التالي في ملف appConfig

كود :

<connectionStrings>
 <add connectionString ="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\db.accdb;Persist Security Info=True;Jet OLEDB:Database Password=****" name ="con"/>
</connectionStrings>

 
ثم قم بإضافة System.Configuration من Reference
ثم قم بكتابة الكود التالي في الموديل 

كود :

Public con As New OleDbConnection(System.Configuration.ConfigurationManager.ConnectionStrings("con").ConnectionString)

و من المحتمل ان يكون هناك فورم عامل له hide حيث انصحك ان تقوم بعمل DestroyHandle في حدث formClose 
 تحياتي لك بالتوفيق