Barra de Progreso

bueno lo que puedes hacer es lo siguiente
has una rutina
donde copias primero esos lineinputs o filas de archivo en un arreglo
por ej

dim codigos as new arraylist

do until eof(100)
codigos.add(lineinput(100))
loop

luego ves el maximo del tamaño(cantidad de registros)
se lo asignas al progress como elemento maximo
me.progressbar.maximun= codigos.count


despues una rutina
donde a medida que insertes el progressbar se vaya incrementando

dim i as integer
for i=0 to codigos.count-1
me.progresbbar1.value=progressbar1.value+1

//// realizas las inserciones insert into bla bla vaues("& codigos &(i)")

next


ojala te pueda servir si quieres te puedo enviar un codigo
que utilizo en rutinas de desacarga de capturadores scanpal metrologic de
codigo de barras