If you have "private Sub Functions" and "DoCmd.OpenQuery statements",
then you are talking about VBA procedures, which in Access are quite
different from macros.
You could use code like this:
Dim StartTime As Date
Dim EndTime As Date
Dim ElapsedTime As Integer
StartTime = Now
<your OpenQuery thingies etc>
EndTime = Now
ElapsedTime = DateDiff("s",StartTime,EndTime)
Me.YourLabel.Caption = ElapsedTime & " seconds"
This only shows the time in whole seconds. Not sure if that's what you
were looking for.
Steve Schapel, Microsoft Access MVP