Anytime Maximus. I would disagree with you in regards to turning system warnings off. I used to write code that way when I was first starting out and I had many a experienced developers telling me to never do it that way where you are turning system warnings off.
Also, you can provide a status for the user with the CurrentDb.Execute method. You would do something like this.
Code:
Dim IntRetVal As Integer
'Set the status
IntRetVal = SysCmd(acSysCmdSetStatus, "Running Query Now")
CurrentDb.Execute strSQL
'Clear the status
IntRetVal = SysCmd(acSysCmdSetStatus, " ")