حل مشكلة طلب التاريخ والوقت من الا سكيو ال سيرفر

كثرة الأسئلة في مختلف المنتديات عن موضوع كيف اجعل برنامجي يأخذ التاريخ من السيرفر بدلاً من جهاز المستخدم واحببت ان اوضح للأخوان الكرام الطريقه بأستخدام الفيجول مع ال (SQL SERVER)

**************************************************
1- اذهب الى القاعدة المراد الاتصال بها في ال (SQL)
2- اختر احد الجداول ثم اضف اليه حقل سمه ب(SERVERDATE) اجعل خاصية (DATATYPE) ب (DATETIME) ثم في خانة (Default Value) اكتب الاتي
( GETDATE () )
3- ضع تايمر على النموذج المراد اظهار التاريخ ثم ضع الكود الاتي

Private Sub Timer1_Timer()
Dim strSql As String
       Dim Millisecs As Integer
       Dim Hundredths As Integer
       Set RS = New ADODB.Recordset
       cn.Execute "UPDATE [color=crimson]tablename[/color] SET SERVERDATE = GetDate()"
       strSql = "SELECT SERVERDATE, DATEPART(MS,SERVERDATE)AS SQLsDP FROM [color=red]tablename[/color]"
       RS.Open strSql, cn
       Millisecs = GetMilliseconds(RS("SERVERDATE"))
End Sub

Function GetMilliseconds(ByVal varDateTime As Variant) As Long
       Dim decTime As Variant
       Dim mydate1 As String
       Calendar = vbCalHijri
       decTime = CDec(varDateTime)
       mydate1 = varDateTime
       [color=red]Label3.Caption[/color] = Format(mydate1, "yyyy/mm/dd")
End Function