I have a Macro (Code Swaper) that searches 1 table and updates it with data from another table from certain criteria! This takes a while as some times the table will have 3000 to 5000 records?
My question is how could I use a Progress bar to reflect the progress of the function?

The macro runs 4 queries:
Swaper1:
UPDATE Final, code_link SET Final.New_Code = [code_link]![new_code], Final.Description = [code_link]![description]
WHERE (((Left([Final]![Old_Code],+3)) Like [code_link]![old_code]));

And Swaper2:
UPDATE final, code_link SET final.New_Code = code_link.new_code, final.Description = code_link.description
WHERE (((Left([Final]![Old_Code],+4)) Like [code_link]![old_code])) OR (((Left([Final]![Old_Code],+5)) Like [code_link]![old_code])) OR (((Left([Final]![Old_Code],+6)) Like [code_link]![old_code])) OR (((Left([Final]![Old_Code],+7)) Like [code_link]![old_code]));

DotE:
UPDATE Final SET Final.New_Code = [Final]![New_Code] & ".E"
WHERE (((Final.Old_Code) Like "*!*" Or (Final.Old_Code) Like "*^*"));

DotC:
UPDATE Final SET Final.New_Code = [Final]![New_Code] & ".C"
WHERE (((Final.Old_Code) Like "*-*"));

And Finally
Description:
UPDATE Final SET Final.Description = [Final]![Description] & " " & Right([Final]![Old_Code],Len([Final]![Old_Code])-InStr(1,[Final]![Old_Code]," "))
WHERE (((InStr([Final]![Old_Code]," "))<>"0"));


Help?