主题：当服务器端的操作系统时间不对，如何在登录时判断并提示？

Dim cmd As New SQLCommand
Dim dt As Date
cmd.ConnectionName = "数据源"
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()

if dt <> date.now then