Cita:
Iniciado por analoyra 
me pone error 76 en timpo de ejecucion, no se ha encontrado la ruta de acceso.
si yo voy a la tabla de access me deja un espacio en blanco tambien por ej. juan .mdb
¿Ese error te marca en el MkDir o en el FileCopy?. Intenta ejecutar paso a paso y mira cómo queda la cadena completa en la ventana Inmediato. Explico, coloca un punto de interrupción donde te marca el error y coloca en la ventana inmediato:
Código:
? App.Path & "\" & Text1.Text & "\" & Text1.Text & ".mdb"
Luego me cuentas qué resultado te devuelve.