还是如何调用实时获得服务器年月日时分秒

老师好！还是不得其法如何调用实时获得服务器年月日时分秒，我很笨的，唉！请老师详细教我，谢谢！！！！

我新建模块：

Public Function GetSQLSvrTime()
    Dim rst As ADODB.Recordset
    Dim strConn As String
    Dim strSQL As String
    Dim strServer As String
    Dim strServerUser As String
    Dim strPWS As String
    Dim strDB As String
    Set rst = New ADODB.Recordset
    strServer = "192.168.1.5" '服务器IP地址
    strServerUser = "sa" '服务器用户名
    strPWS = "zhg.123" '服务器密码
    strDB = "2014-6-25集成服务管理系统V1.0" '数据库名称
    strConn = "Provider=MSDataShape.1;Persist Security Info=True;Data Source=" & strServer & ";" _
           & "User ID=" & strServerUser & ";Password=" & strPWS & ";" _
           & "Initial Catalog=" & strDB & ";Data Provider=SQLOLEDB.1"
    strSQL = "Select GETDATE() AS SvrTime"
    rst.Open strSQL, strConn, adOpenDynamic, adLockOptimistic
    GetSQLSvrTime = rst.Fields("SvrTime")
End Function

窗口更改后事件：Me.出单日期 = GetSQLSvrTime()

无法得到：年月日时分秒

不知如何调用：

Private Sub TestCode()
Dim sTime As String
'取时间
sTime = Format(GetSQLSvrTime(), "Short Time") ' 短时间
Debug.Print sTime
'取日期:
Dim sDate As String
sDate = Format(GetSQLSvrTime(), "Long Date") ' 长日期
Debug.Print sDate
End Sub