[5分]关于企业版获取SQLserver服务器时间

'函 数 名：GetServerTime()
'作    者：smail
'用    途：在快速平台中企业版，获取SQL SERVER服务器时间
'调用方法：在原使用  NOW() 函数的地方，写为 GetServerTime() 即可
'       如  debug.?GetServerTime()   '即可得到SQL SERVER服务器时间
'创建日期：2013-11-28
'注意事项：'注意：该函数基于快速平台开发，不能直接移植到非快速开发平台的环境下使用。

Function GetServerTime() As Date  '获得SQL SERVER服务器时间
    Dim rst As Object
    Set rst = OpenADORecordset("Select GETDATE() AS sys_Sqlser_time") '主要为这句代码取得了SQL SERVER服务器时间
    GetServerTime = rst(0)
    rst.Close
    Set rst = Nothing
End Function

问题在哪儿？