vb获取服务器时间

在窗体中建一个文本框和时间控件,可以在文本框中显示跳动的服务器时间
Private Sub Form_Load()
Timer1Interval = 300
End Sub
Private Sub Timer1_Timer()
Dim cnn As New ADODBConnection
Dim cmd As New ADODBCommand
Dim rst As New ADODBRecordset
Dim Sqlser_time
cnnConnectionString = "driver={SQL Server};" & _
"server=server;uid=sa;pwd=;database=master"
cnnOpen
cmdActiveConnection = cnn
cmdCommandText = "SELECT GETDATE() AS sys_Sqlser_time"
Set rst = cmdExecute
Sqlser_time = rst(0)
Text1Text = Sqlser_time
rstClose
cnnClose
End Sub

---