كيف يتم التحكم في فتح وأغلاق قاعدة البيانات

عندي برنامج ويحوي أدخال بيانات مربوط بقاعدة بيانات بالأكسس

وأداة الربط هي ADO

وعملية الربط تمت عن طريق الكود كما يلي

   If Not db.State = adStateOpen Then
        db.CursorLocation = adUseClient
         db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbstor.mdb;Jet OLEDB:Database Password=xxx;adAsyncConnect"

    End If

والكود تم وضعه داخل مديول

كيف يمكنني أغلاق قاعدة البيانات وفتحها من داخل البرنامج لكي يتم تحديث البيانات

حيث انه لا يتم ذلك إلا عند أغلاق البرنامج ومن ثم فتحه