Visual Basic - PERMISION DENIED ERROR 70

Hola, tengo una base de datos access asociada a un control ADODC, cuando quiero guardarla con el siguiente código me da el error "PERMISION DENIED ERROR 70"

Dim Ruta As String
CommonDialog1.DefaultExt = ".mdb"
CommonDialog1.Filter = "Access 97 (*.mdb)|*.mdb"
CommonDialog1.ShowSave
Ruta = CommonDialog1.FileName
PRECIOS.Text = Ruta
If Ruta <> "" Then
FileCopy App.Path & "HAIR´S PELU.mdb", Ruta -----AQUI ME DA EL ERROR
MsgBox "La BD guardada: : " & Chr(13) & Ruta, vbInformation
end if

Me supongo que será que como le BD está abierta por el control ADODC no me la deja guardar.

¿como podría guardarla?

Gracias

evidentemente, cerrando el control ADODC antes de guardar.

Y como lo cierro?, he probado con ADODC1.Recordset.Close y sigue dando el mismo error.