Visual Basic - ayuda con backup

hola a todos, necesito ayuda para hacer un backup, yo intente haciendolo con

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

y me da error porque tengo la base abierta, tambien probe cerrando la base pero sigue el error, esto lo hago desde la aplicacion, cuando pruebo haciendolo aparte funciona bien,
alguien tiene otra forma de hacerlo que se pueda hacer desde el mismo programa que estoy creando

Prueba Hacerlo asi:

Origen = "C:\db1.mdb"
Destino = "C:\Backup\db1.mdb"

FileCopy Origen Destino

Por alguna razon a vecez no te toma la ruta si la insertas directamente en el comando FileCopy

Aunque te recomiendo que lo comprimas, en breve tendre en mi pagina un ejemplo de como comprimir una BD con el viejo PKZIP

www.cydmatica.unlugar.com