Cita:
Iniciado por analoyra 
El error me lo da en el filecopy, el directorio me lo crea en la ruta que le solicito con el nombre del text, pero el archivo mdb no.
Pues bien, como te dije, ejecuta paso a paso, interrumpe en la línea que te da error y coloca en la ventana inmediato esto:
Código:
? App.Path & "\" & Text1.Text & "\" & Text1.Text & ".mdb"
Y me cuentas qué resultado te da. Por si acaso también coloca:
Código:
? App.Path & "\original\original.mdb"
Recuerda, la línea de tu código debe ser exactamente así:
Código:
FileCopy App.Path & "\original\original.mdb", App.Path & "\" & Text1.Text & "\" Text1.Text & ".mdb"
Si tienes algo diferente me avisas...