Visual Basic - codigos para un backup...

estoy intentando hacer un backup de mi base de datos, pero cada vez que lo ejecuto se freeza o se congela el sistema. estoy utilizando los siguientes codigos, alguien que me diga por favor donde esta el error:

Private Sub mCopiar_Click()
On Error GoTo Errores
Bus = "Copiando la Base de Datos " & Mid(Fichero, 1, 8)
Form6.Show
MousePointer = 11
Form6.Refresh
Origen = App.Path + "C:\Proyect 3\Database\bdFacturacion.mdb" + Fichero
Destino = "a:" + Fichero
FileCopy Origen, Destino
Beep
Unload Form6
MsgBox "Copia finalizada"
Form6.Refresh
MousePointer = 0
Exit Sub
Errores:
If ErrorDisco = 0 Then Resume
Unload Form6
MousePointer = 0
Form6.Refresh
End Sub

Private Sub mRestaurar_Click()
Dim mensaje As String, prg As String
On Error GoTo Errores
Origen = "a:" + Fichero

mensaje = "Fichero a Restaurar : " & Mid(Fichero, 1, 8) & Chr(10) & Chr(13) _
& "Fecha de la copia : " & Format(FileDateTime(Origen), "dddddd") & Chr(10) & Chr(13) _
& "Hora de la copia : " & Format(FileDateTime(Origen), "ttttt")
prg = MsgBox(mensaje, 1)
If prg = 2 Then Exit Sub
Bus = "Restaurando la Base de Datos ..."
Form6.Show
MousePointer = 11
Form6.Refresh
Destino = App.Path + "C:\Proyect 3\Database" + Fichero
FileCopy Origen, Destino
Unload Form6
Beep
MsgBox "Restauración terminada, retira el disquete"
Form6.Refresh
MousePointer = 0
Exit Sub
Errores:
If ErrorDisco = 0 Then Resume
Unload Form6
MousePointer = 0
Form6.Refresh
End Sub