BarraProgress en Access, no corre utilizando la instrucción: FSO.CopyFolder

Tengo este código en un formulario donde le he colocado dos cuadros de texto independientes uno que he llamado contador y otro barra (ancho 0 con color), y he puesto un botón para iniciar para la copia de archivos. Quiero poner una barra para ver el progreso de la copia, pero no sé porqué la instrucción fso. CopyFolder BLOQUEA EL CÓDIGO DE PROGRESO DE LA BARRA.

Option Compare Database
Private Sub Form_Load()
Me.contador = 0
End Sub
Private Sub Form_Timer()
contador = contador + 1
Barra.Width = 0.201 * 567 * contador
End Sub
Private Sub Iniciar_Click()
Dim CarpetaOrigen As Variant, CarpetaDestino As Variant
'Para COPIAR una carpeta en cualquier otra Ubicación
'Indicamos los nombres y ubicaciones de la Carpeta a COPIAR...
CarpetaOrigen = "C:\BaseDatos"
CarpetaDestino = "C:\RespaldoBaseDatos\BaseDatosRespaldos" & "_" & Format(Now(), "dd_mm_yyyy_hh_mm")
'OJO!!!: no podremos crear una carpeta ya existente!!!
'con este objeto proporcionamos acceso al sistema de archivos de nuestro equipo...
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Me.TimerInterval = 100
contador = 1
'Momento para copiar y pegar la ubicación de la Carpeta.
'Empleamos el método CopyFolder para copiar de un lugar a otro...
FSO.CopyFolder Source:=CarpetaOrigen, Destination:=CarpetaDestino
'finaliza el progreso de la barra de conteo
TimerInterval = 0
'mensaje de confirmación
MsgBox "Hemos copiado la Carpeta " & CarpetaOrigen & " y pegado en la nueva ubicación " & CarpetaDestino, , "RESPALDO CONCLUIDO"
    DoCmd.Close
End Sub