Visual Basic - Copia de seguridad

Tengo hecho un programa en el que se puede hacer una copia de seguridad de la base de datos, pero al hacerla todos los controles ado se enlazan a la copia de seguridad.El código es el siguiente:
aux = App.Path
result = MsgBox("¿Desea hacer una copia de seguridad de la base de datos del programa?", vbInformation + vbYesNo)
If result = vbYes Then
cdlSeguridad.CancelError = True
On Error GoTo ErrHandler
Source = App.Path & "\wintpv.mdb"
cdlSeguridad.FileName = App.Path & "\wintpv.mdb"
cdlSeguridad.Filter = "Documentos de Access (*.mdb)|*.mdb"
cdlSeguridad.ShowSave
destino = cdlSeguridad.FileName
FileCopy Source, destino
MsgBox "La copia de seguridad ha sido realizada con éxito", vbInformation
ErrHandler:
' El usuario ha hecho clic en el botón Cancelar
AppPath = aux
Exit Sub
End If
AppPath = aux

No se donde está el error ni como arreglarlo, si alguien me puede ayudar le estaré muy agradecido.