Como le aplico progressbar a mi funcion?

[franko1809]

El codigo es asi

Código:

Private Sub cmdBackup_Click()
On Error GoTo ErrorBackup
   'Cerramos la conexion
     'If dbConex.State = 1 Then dbConex.Close 'Esta linea cierra la conexion del modulo
     'Copiamos la base de datos en la carpeta backup
     Screen.MousePointer = 1
     MsgBox CopiaBDPwd(App.Path & "\SYSTEM_DB_01.mdb", App.Path & "\BackUp\Copia de SYSTEM_DB_01.mdb", 45568392), vbInformation, "Information"
     'Volvemos a abrir la conexion
     'Main 'Esta linea vuelve a abrir la conexion del modulo
Exit Sub

ErrorBackup:
   MsgBox "No se pudo crear la copia de seguridad", vbCritical, "Debe cerrar todas las ventanas"
End Sub