问一个关于显示image字段的图片的小问题

我想在程序中显示保存在数据库里面的图片，使用了如下语句：
    If Adodc1.Recordset.Fields(0).Value <> Empty Then
        TSno.Text = Adodc1.Recordset.Fields(0).Value
        Dim strTemp As String
        Dim stm As New ADODB.Stream
        strTemp = App.Path & "\temp.jpg"
        If Not Adodc1.Recordset.Fields("spho") is null Then
            With stm
                .Type = adTypeBinary
                .Open
                .Write Adodc1.Recordset.Fields("spho")    '该字段保存图像
                .SaveToFile strTemp, adSaveCreateOverWrite
                .Close
            End With
            Image1.Picture = LoadPicture(strTemp)
        End If
        Set stm = Nothing
    End If
上面的程序中 If  Adodc1.Recordset.Fields("spho") is Not Null Then一句用来判断该字段是否为空，不为空的话才可以做显示的工作。但是在运行的时候该字段为空还没有问题，如果为空的话就会出现类型不匹配的错误，把它改为If  Adodc1.Recordset.Fields("spho").Value is Not Null Then也不行。请问要怎么样才能实现这个判断呢？