Error 70 Permiso Denegado

[S-Virus]

Hola de nuevo amigos. De nuevo aqui dando la vara. A ver, mi problema es el siguiente.

He creado un formulario con el DriveList y toda la histora en plan explorador de archivos. En el mismo formulario hay un cuadro de texto y un botón guardar. Lo que quiero es copiar un archivo que es .mdb y y pegarlo con el nombre que tiene puesto en el textbox en otro sitio. El codigo que utilizo es el siguiente:

Private Sub btnGuardar_Click()
Dim origen As String, destino As String
origen = App.Path & "\DATA\Vivergest.mdb"
destino = drvArchivos.Path & "\" & txtNombreCopia.Text
On Error GoTo errorencopia
FileCopy CStr(origen), CStr(destino)
MsgBox "La copia se ha realizado satisfactoriamente", vbOKOnly + vbInformation, "Hecho"
Exit Sub

errorencopia:
MsgBox "Error durante el proceso de copia" & vbCr & "Posibles causas:" & vbCr & vbCr & "- El archivo ya existe" & vbCr & "- La ruta no es válida", vbOKOnly + vbCritical, "Error en copia"
Exit Sub
End Sub

Espero que se entienda y me puedan ayudar. Gracias y un saludo.