用于客户端取服务器时间，使数据库时间同步。

1.在SqlServer数据库里面建视图  select getdate()  as rq

并且视图名称命名为：FWQRQ

2.写个函数  
Public Function FWQRQ() As Date
FWQRQ = DLookup("rq", "fwqrq")

End Function

3.在窗体中引用就行了。