Visual Basic - Copia de seguridad de BD Access2000

Necesito que me ayuden para crear una copia de seguridad en Access2000.

En la sección código fuente tenés un ejemplo para bajar.

Aqui tienes un ejemplo:

Private Sub cdmcopiaBD_Click()
copia = MsgBox(" ¿Desea crear una copia de su base de datos?", vbYesNo, "Crear Respaldo")
If copia = 6 Then
On Error GoTo err
FileCopy App.Path & "\TABLAS\uno.MDB", "C:\CopiaBD.mdb"

MsgBox "Se ha creado un respaldo de su base de datos en C:\ de nombre CopiaBD.mdb", , "Copia de Seguridad"
Exit Sub
Else
MsgBox "No se creo copia de seguridad de la base de datos. Recuerde crear copia", , "Copia no creada"
Exit Sub
End If
err:
MsgBox "Por favor cierre todas las pantallas exepto esta antes de crear respaldo", , "Error"
Exit Sub

end sub