Visual Basic - copiar archivo (codigo)

hola, tengo este codigo:

ori = App.path & "BD_basesvillacecosezul1.mdb"
des = App.path & "asesvillacecosezul1.mdb"
FileCopy ori, des

es para guardar una copia de la bd, funciono bien, ahora le coloque una clave de entrada a la bd (access) y me arroja un error (permiso denegado), como puedo hacer para resolver el problema, no tengo idea de como hacerlo.
gracias

mira, este código no sólo hace una copia de la BD con contraseña, sino que además la compacta

Dim jEn As JRO.JetEngine
Set jEn = New JRO.JetEngine
jEn.CompactDatabase "Data Source=" & ori & ";Jet OLEDB:Database Password='Contraseña', Data Source=" & des & ";"

Tienes que marcar la referencia Microsof Jet and Replication objects 2.6 Library

jEn.CompactDatabase esta parte me dice que el argumento que no es opcional ya active la referencia

¿Cual es el código?

ahora me da otro error en tiempo de jecucion No 450,