Function getServerTime() As Date getServerTime = CDate(CurrentProject.Connection.Execute("SELECT GETDATE()")(0).Value)End Function