一句代码得到SQL SERVER时间的函数

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