Если в строку статуса Access-a, то это через SysCmd...

Public Function Meter()
Dim varreturn As Variant, str As String, counter As Long
Dim root As Double
str = "Линейка..."
varreturn = SysCmd(acSysCmdInitMeter, str, 1000000)
For counter = 1 To 1000000
root = Sqr(counter)
If counter Mod 100000 = 0 Then
varreturn = SysCmd(acSysCmdUpdateMeter, counter)
End If
Next counter
varreturn = SysCmd(acSysCmdRemoveMeter)
End Function

А вот как привязать любой ProgressBar к импорту файла - ни знаю, но всегда горел желанием узнать как...

А можно примерный кусочек кода ?

>>> 3. Определяем сколько скачали в байтах
Где это можно определить ?

Извращаться, так извращаться:
можно вообще, перед импортом подсчитать количество записей в файле, повесить на таймер подсчет количества записей в таблице, в которую происходит импорт, высчитывать разницу и обновлять прогрессбар...но, не уверен, что импорт позволит прерываться...

На мой взгляд, предложение В.С. более удобна...