If Rs.Fields("FEffectiveDate") = Null请大侠来帮忙


Set Rs = m_BillInterface.K3Lib.GetData("EXEC CheckThePrice '" & StrSup & "','" & StrItem & "','" & StrUnit & "'")
          
          m_BillInterface.SetFieldValue "FQuoPrice", Rs.Fields("FPrice"), Row
          If Rs.Fields("FEffectiveDate") = Null Then
             m_BillInterface.SetFieldValue "FQuoEffDate", "", Row
          Else
             m_BillInterface.SetFieldValue "FQuoEffDate", Rs.Fields("FEffectiveDate"), Row
          End IfVB的存储过程此时在查询分析器里得到的结果为
Fid         FPrice                    FEffectiveDate                                         FCy 
3           1.0000000000              NULL                                                   1000
其中    Create Table #CheckThePrice (...
                                     ...
                                     FEffectiveDate DateTime )
问题,我在VB里调试时,
语句If Rs.Fields("FEffectiveDate") = Null Then没有执行下一行,而是执行Else
也就是说没有按照条件来执行.
我在立即窗口得到Rs.Fields("FEffectiveDate")的值为Null
请大侠来帮忙.