عمل نسخة احتياطية واسترجعها لقاعدة بيانات متصلة على الشبكة

السلام عليكم ورحمة الله وبركاته

اخوانى اريد طريقة اعمل نسخة احتياطية لقاعدة بيانات متصل بيها المستخدمين على الشبكة واسترجعها 

انا استخدم هذا الكود 

Private Sub XPButton1_Click()


  On Error GoTo BackupError
    Dialog.FileName = ""
    Dialog.Filter = "Backup files (*.law) |*.law|"
    Dialog.ShowSave
        If Dialog.FileName <> "" Then
            If FileLen(App.Path & "\Database.dll") > 1210000 And Mid(Dialog.FileName, 1, 1) = "A" Then
                MsgBox "لا يمكن نسخ قاعدة البيانات على هذا المحرك فضلاً قم بإستبداله بمحرك ذو سعة اكبر .", vbOKOnly + vbCritical, " خطأ في النسخ" + UserName
            Else
                
               
                FileCopy (App.Path & "\Database.dll"), Dialog.FileName
               MsgBox "تم عمل نسخة احتياطية بنجاح", vbOKOnly + vbInformation, " النسخ الاحتياطي" + UserName
            End If
        End If
    Exit Sub
BackupError:
Exit Sub

End Sub

Private Sub XPButton2_Click()

    On Error GoTo RestoreError
    Dialog.FileName = ""
    Dialog.Filter = "Backup files (*.law) |*.law|"
    Dialog.ShowOpen
            
            FileCopy Dialog.FileName, App.Path + "\Database.dll"
              MsgBox "تم استعادة قاعدة البيانات المحددة بنجاح.", vbOKOnly + vbInformation, " استعادة قاعدة البيانات" + UserName

   
   
RestoreError:
Exit Sub


End Sub

هذا الكود يقوم بعمل نسخة احتياطية واستدعائها وطبعا لابد ان يكون الاتصال بقاعدة البيانات منفصل 

if db.state =1 then db.close

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

ياريت لو اجد مساعدة فى هذا الامر 

وشكرا