Public Sub SyncSystemtime()
Dim adodatetime As New ADODB.Connection
adodatetime.Open adoConnStr
Time$ = adodatetime.Execute("Select Convert(char(8),getdate(),108)")(0)
Date$ = adodatetime.Execute("Select Convert(char(10),getdate(),111)")(0)
Set adodatetime = Nothing
End Sub