Function Servertime() As Date
    Dim con As New ADODB.Connection
    Dim connstr As String
    Dim rst As New ADODB.Recordset
    connstr = Forms!usysfrmlogin!LabConn.Caption    'Forms!usysfrmlogin!LabConn.Caption
    con.Open connstr
    rst.Open "select getdate() as sj", con, adOpenKeyset, adLockOptimistic
    Servertime = rst("sj")
End Function

上边代码放在模块中即可.

如果在窗体控件中调用,me. 控件名=servertime就可以了.