أريد ان أعمل نسخ احتياطي data base

         Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _
(ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
ByVal bFailIfExists As Long) As Long
Private Sub Label1_Click()
On Error Resume Next
Dim Nouvfich As String
com1.DialogTitle = "Sauvgarder de la base de donnée"
com1.DefaultExt = ".MDB"
com1.FileName = "ROSH.MDB"
com1.Flags = &H1004
com1.Filter = "Base De Données (*.mdb)|*.mdb"
On Error GoTo erreur
com1.ShowSave
Nouvfich = com1.FileName
CopyFile App.Path & "\ROSH.mdb", Nouvfich, True
MsgBox "La Base De Donnée à été Bien Sauvegarder", vbInformation + vbOKOnly, "GESTION COMMERCIAL"
erreur:
If Err = 32755 Then
    Exit Sub
End If
End Sub

Private Sub ReyCommand1_Click()
On Error Resume Next
Unload Me
Form2.Show
End Sub