Remote Close After Countdown?

I have two databases; a server and a client. The server houses all of the tables, while the client has the tables linked and serves primarily as a form for users to enter data to the main table. Periodically I update the form, so I would like to be able to shut down each client while I upload the new files to update the client. Here is my thinking:

I have a table in server.mdb called admin with 3 columns and one record.

The fields are:

closex (text) - This will be populated when I want to send the close countdown command.
message (text) - The string I want to display in a warning popup box.
Timer (integer) - The time in seconds before the program will close.

Right now I have a hidden LIST box in the form (closemsg) that is bound to column 1 and column count=3.

Me.closemsg.column(0) is closex
Me.closemsg.column(1) is message
Me.closemsg.column(2) is timer

The box is requeryed every 2 seconds to check and see if the table has been updated along with another line of code that keeps the time current until someone starts to enter a record.

I have a macro that will perform the close operation. Here is the code I have thus far....any help would be greatly appreciated.

___________________________________________

Private Sub Form_Timer()

'Updates the Time to Current
If (IsNull(Agent)) Then

Me!Call_Time = Time()

End If

'Checks for updated values in Admin Table
Me.closemsg.Requery

' -------------
'| Force Close |
' -------------

'Message Variable from T.Admin
Dim message As String
'Timer Variable from T.Admin
Dim timer As Integer

'Macro Variable to Close App
Dim macroname As String

macroname = "Closeapp"

'Check to see if T.Admin has changed
If (IsNull(Me.closemsg.Column(0))) Then

Else

message = Me.closemsg.Column(1)
timer = Me.closemsg.Column(2)

'Set Timer
timer = timer * 1000
'Notify User
MsgBox message

Count:

timer = timer - 1

If timer > 0 Then

GoTo Count

Else

DoCmd.RunMacro macroname

End If

End If

End Sub