Access - Copia seguridad

Hola intento hacer una copia de seguridad de la BD con el siguiente código
Private Sub Copias_Click()
On Error Resume Next
Dim cadena As String
MkDir"C:\copia_seg"
cadena="xcopy"""&CurrentDb.Name&""" """& "C:\copia_seg"&"\"""
Shell cadena, vbHide
End Sub
Ocurre que mi SO es XP y con este código me crea la carpeta pero no transfiere la copia de la BD. ¿Sabe alguien como puedo solucionarlo?
Gracias por adelantado.

Oyes el access 2003 trae la opcion para crear la copia de seguridad es cuestion de que lo consigas. Es lo que lei, son las novedades de access 2003.

Alfredo, te agradezco tu respuesta pero quisiera intentarlo con Access 2000, que es la versión con la que trabajo.
Saludos