[bidaya]

السلام عليكم ورحمة الله

لا ادري اين المشكل في الكود التالي

كود :

Dim time As DateTime = Conversions.ToDate(DateTime.Today.ToString)
       If (DateTime.Compare(Conversions.ToDate(My.Settings.add), time) > 0) Then


       Else
           Me.Close()
       End If

يعطيني الخطأ اليتالي