Gracias GeoAvila y wario64 por responder.
Lo solucione de esta forma, seguramente es una chapuceada pero me saca del brete:
Dim i As Long 'el numero de canal
Dim sPathBase As String 'contiene el camino al .mdb
'asignamos a un canal libre el archivo a abrir
i = FreeFile
'en esta variable ponemos el tamaño del archivo abierto
tamFich = LOF(i)
'ponemos Progreso en cero
Progreso.Value = 0
'y habilitamos el Timer1 que estaba deshabilitado para que controle
'el ProgressBar
Timer1.Enabled = True
With Progreso
'indicamos con tamFich el Max del ProgressBar
.Max = tamFich
'indicamos de 1 al Max del archivo
For j = 1 To tamFich
'mientras el valor del ProgressBar sea menor al tamFich
If .Value <= tamFich Then
'incrementamos el valor del mismo
.Value = .Value + 1
End If
Next
end with
Si alguien me puede pasar un codificado mas "profesional" muy agradecido.
Saludos.
