ما الخطأ فى هذا الكود

ما الخطأ فى هذا الكود

فى حالة وجود خانة التاريخ مملوءة يعمل الكود جيدآ

ولكن فى حالة فراغ هذه الخانة أراه يعترض على الجملة (X = Adodc1.Recordset.Fields(2

رغم أنه من المفروض أنه لن يمر عليها أصلآ لأنه سيجد الشرط السابق متحققآ أى سيجد Adodc1.Recordset.Fields(2) = Null فيتجه الى الجملة رقم 10

Private Sub Command1_Click()
Dim A As Date, X As Date
     A = #5/26/1992#
     If Adodc1.Recordset.Fields(2) = Null Then GoTo 10
     X = Adodc1.Recordset.Fields(2): GoTo 20
10 X = #5/26/2000#
20  If X >= A Then Y = 55 Else Y = 33
     Print "A,X="; A, X
     Print Y
End Sub