Access - Copiar basedatos.mdb

Hola necesito copiar con uan bd access que está en:

C:\laboratorio\laboratorio.mdb

a

C:\ensayos\laboratorio.mdb

pero desde un boton de un formulario (visual basic) de otra mdb....

Crea el boton y pega este codigo.
Dim strRutaO as String
Dim strRutaD as String
strRutaO = "C:\laboratorio\laboratorio.mdb"
strRuraD = "C:\ensayos\"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.copyfile strRutaO, strRutaD 'Copiamos todos los archivos
Set fso = Nothing
Un saludo desde Barna
Sk@keo