Estoy intentando hacer una copia de una bd Access, Con el control CommonDialog. de esta forma pero solo me da errores.
A ver si me podeis revisar el codigo, gracias




Dim sArchivo As String
sArchivo = App.Path & "bd_Factura.mdb"
CommonDialog1.InitDir = App.Path
CommonDialog1.DialogTitle = "Guardar Archivo"
CommonDialog1.Filter = "Archivos de Microsoft Access" & _
"(*.mdb)|*.mdb|"
CommonDialog1.ShowSave
'Si no se elige una ruta sal
If CommonDialog1.FileName = "" Then Exit Sub
WPTAH = sArchivo
WPATH1 = CommonDialog1.FileName
FileCopy WPTAH, WPATH1