Error al convertir de DBNull a Long

Hooola

A ver si me podeis ayudar...

En el If del dr.Read() me devuelve un NULL y me da error al
convertir al tipo Long. Si hay un registro en la base de
datos todo me va ok, pero si no hay ningún registro me peta
y me dice que Error al convertir del tipo DBNull al tipo
Long. Os paso el código, primero del stored procedure y
luego de la consulta...

-
CREATE PROCEDURE sp_obtenerIdArbol AS

select max(IdArbol_Ar) + 1 from Arboles
GO
-
Public Shared Function obtenerNumeroLicencia() As Long
Dim cn As New SqlConnection(cadenaConexión)
Dim cmd As New SqlCommand("sp_obtenerNumLic", cn)
Dim dr As SqlDataReader
Dim numLicencia As Long

Try

cn.Open()

cmd.CommandType = CommandType.StoredProcedure
dr = cmd.ExecuteReader

If dr.Read() Then

numLicencia = dr(0)
Else

numLicencia = 1
End If

Catch ex As Exception

Throw ex
Finally

dr.Close()
If cn.State = ConnectionState.Open Then

cn.Close()
End If
End Try

Return numLicencia
End Function
-

GRACIAS!!

nos vemos

adios adios