Visual Basic - Copia de Seguridad

Hola a todos, pretendo hacer desde mi aplicación un botón que realice una copia de seguridad de la Base de Datos de Access de la propia aplicación. ¿Como puedo hacerlo?

Se trata de crear una copia en la carpeta SEGURO:
Private Sub mnuCopiaComp_Click()
On Error GoTo miError
Dim dile, dile1
dile = ""
dile1 = ""
vuelta:
Err = 0
Dim uni, uni1
Me.BackColor = &H80&
uni = App.Path & "\"
uni1 = App.Path & "\SEGURO\"

ChDir uni1
On Error GoTo sigue
Kill "RECETAS.MDB"
GoTo sigue1
sigue:
dile = "NO"
sigue1:
ChDir uni
Screen.MousePointer = 99
Screen.MouseIcon = LoadPicture(App.Path & "\ICONOS\SEMAFR.ICO")
DBEngine.RepairDatabase App.Path & "\RECETAS.MDB"
CompactDatabase App.Path & "\RECETAS.MDB", App.Path & "\SEGURO\RECETAS.MDB"
Screen.MouseIcon = LoadPicture(App.Path & "\ICONOS\SEMAFA.ICO")
Kill "RECETAS.MDB"
'sigue...

'...continúa
CompactDatabase App.Path & "\SEGURO\RECETAS.MDB", App.Path & "\RECETAS.MDB"
Screen.MouseIcon = LoadPicture(App.Path & "\ICONOS\SEMAFV.ICO")
Screen.MousePointer = 0
Me.BackColor = &H4000&
If dile <> "" Then
dile = "NO HABÍA DATOS DE SEGURIDAD CON ANTERIORIDAD"
End If
MsgBox dile & Chr(10) + Chr(13) _
& "Se ha guardado una copia compactada de los Datos en " & "''" & App.Path & "\SEGURO''." & Chr(10) + Chr(13) _
& " En caso de pérdida de datos podrá reemplazar a la existente en " & "''" & App.Path & "''."
GoTo sal
miError:
If dile <> "" Then
dile = "NO HAY DATOS DE SEGURIDAD GUARDADOS"
dile1 = "AL NO HABER DATOS DE SEGURIDAD DEBERÍA COMPACTARSE LO ANTES POSIBLE PARA CREARLOS"
End If
MsgBox dile & Chr(10) + Chr(13) _
& "La Base de Datos está abierta y no se puede compactar" & Chr(10) + Chr(13) _
& "Continuar sin compactar y cerrar. Al volver a abrir el programa, antes de hacer otra cosa, Compacte" & Chr(10) + Chr(13) _
& dile1
sal:
Err = 0
On Error GoTo 0
End Sub