Visual Basic - backup

hola amigos, estoy tratando de hacer un boton que haga backup de la base de datos,en mi sistema y ya probe haciendo

If Dir("C:\tienda2.mdb") <> "" Then
Kill "C:\tienda2.mdb"
Else
FileCopy ("C:\tienda.mdb"), ("C:\tienda2.mdb")
End If

y me da error porque tengo la base de datos abierta,tambien probe cerrando la base pero sigue dando errores,si alguien sabe como hacer esto
o como usar el activezipper por favor me podria mandar un ejemplo o un link donde alla un ejemplo
gracias...

CREA 2 COMMAND EN UN FORMULARIO Y COPIA EL SIGUENTE CODIGO
TE SIRVA PARA COPIAR Y RESTAURAR
ADAPTALO A TUS NECESIDADES

Private Sub Command1_Click()
mensaje$ = "¿Desea hacer copia de seguridad?"
respuesta = MsgBox(mensaje$, vbOKCancel + vbInformation, "Copia de Seguridad")
If respuesta = vbOK Then 'si el usuario pulsa Aceptar
Dim sFicOri As String, sFicDes As String
Dim Fs As Variant

sFicOri = "c:\carpeta\base.mdb"
sFicDes = "c:\copias\base.mdb"

Set Fs = CreateObject("Scripting.FileSystemObject")
Fs.CopyFile sFicOri, sFicDes, True
End If
End Sub

Private Sub Command2_Click()
mensaje$ = "¿Desea restaurar copia de seguridad?"
respuesta = MsgBox(mensaje$, vbOKCancel + vbInformation, "Copia de Seguridad")
If respuesta = vbOK Then 'si el usuario pulsa Aceptar

sFicOri = "c:\copias\base.mdb"
sFicDes = "c:\carpeta\base.mdb"

Set Fs = CreateObject("Scripting.FileSystemObject")
Fs.CopyFile sFicOri, sFicDes, True

End If
End Sub

If Dir("C:\tienda2.mdb") <> "" Then
Kill "C:\tienda2.mdb"
Else
FileCopy ("C:\tienda.mdb"), ("C:\tienda2.mdb")
End If

Si observa tu listado despues de que c:\tienda2.mdb es distinto de "", BORRA EL ARCHIVO Y QUE, ahora tendrías que poner que realice la copia, pienso que la opción FILECOPY debe de estar FUERA DEL IF y te sobra el ELSE

Saludos