Public Function GetSysDate() As Date
    On Error Resume Next
    Dim str1 As String
    Dim ado1 As New ADODB.Recordset
    
    str1 = "select distinct sysdate from table1"
    ado1.Open strSQLa, ZhcxCon 
    GetSysDate = CDate(Format(ado1(0).Value, "yyyy-mm-dd HH:NN"))
            
    Set ado1 = Nothing
End Function

''ZhcxCon(你的连接)