To Check Null Condition in Datareader

If dr.Read Then
If IsDBNull(dr(0)) = True Then
orderno = 1
Else
orderno = dr(0) + 1
End If
Session("orderno") = orderno
End If