Store Proc - Need Some Help Please

I am doing an insert and I get the error "Cast from type 'DBNull' to type 'Integer' is not valid." if the contact name already exist.





I dont see my error so if someone could enlight me I would appreciate.


Thanks








"****************STORE PROC***********************


ALTER procedure dbo.Add_Cl_Contact


(


@ContactNamenvarchar(75),


@Departmentnvarchar (50)=null,


@Titlenvarchar(50)=null,


@Phone1char(20)=null,


@Phone2char(20)=null,


@Phone3char(20)=null,


@Ext1char(10)=null,


@Ext2char(10)=null,


@Ext3char(10)=null,


@Faxnvarchar(50)=null,


@Emailnvarchar(50)=null,


@ContactTypeIDint=null,


@Resultinteger OUTPUT





AS





if Exists


(


Select *


From Cl_Contacts


Where ContactName = @ContactName


)


Return 1


Else





insert into Cl_Contacts (


ContactName,


Department,


Title,


Phone1,


Phone2,


Phone3,


Ext1,


Ext2,


Ext3,


Fax,


ContactTypeID,


Email





)


values (


@ContactName,


@Department,


@Title,


@Phone1,


@Phone2,


@Phone3,


@Ext1,


@Ext2,


@Ext3,


@Fax,


@ContactTypeID,


@Email


)


Select @Result = SCOPE_IDENTITY()


return 0


"****************END STORE PROC***********************








'******************************************************************


'******************************************************************


Public Function Add_Cl_Contact(ByVal strContactName As String, _


ByVal strDep As String, ByVal strEmail As String, ByVal strExt1 As String, ByVal strExt2 As String, _


ByVal strExt3 As String, ByVal strFax As String, ByVal strPhone1 As String, ByVal strPhone2 As String, _


ByVal strPhone3 As String, ByVal strTitle As String, ByVal iContactTypeId As Integer, _


ByRef iResult As Integer, ByRef strError As String) As Boolean


'******************************************************************


Dim bSuccess As Boolean = True


Dim connect As New SqlConnection(strConnection)


Dim cmdSelect As New SqlCommand("Add_Cl_Contact", connect)


Dim paramReturnValue As SqlParameter





cmdSelect.CommandType = CommandType.StoredProcedure


'PARAM


cmdSelect.Parameters.Add("@ContactName", strContactName)


cmdSelect.Parameters.Add("@Department", strDep)


cmdSelect.Parameters.Add("@Title", strTitle)


cmdSelect.Parameters.Add("@Phone1", strPhone1)


cmdSelect.Parameters.Add("@Phone2", strPhone2)


cmdSelect.Parameters.Add("@Phone3", strPhone3)


cmdSelect.Parameters.Add("@Ext1", strExt1)


cmdSelect.Parameters.Add("@Ext2", strExt2)


cmdSelect.Parameters.Add("@Ext3", strExt3)


cmdSelect.Parameters.Add("@Fax", strFax)


cmdSelect.Parameters.Add("@Email", strEmail)


cmdSelect.Parameters.Add("@ContactTypeID", iContactTypeId)





paramReturnValue = cmdSelect.Parameters.Add("@Result", SqlDbType.Int)


paramReturnValue.Direction = ParameterDirection.Output





paramReturnValue = cmdSelect.Parameters.Add("ReturnValue", SqlDbType.Int)


paramReturnValue.Direction = ParameterDirection.ReturnValue





Try


connect.Open()


cmdSelect.ExecuteNonQuery()


iResult = cmdSelect.Parameters("@Result").Value


connect.Close()





If cmdSelect.Parameters("ReturnValue").Value = 0 Then


strError = "Contact has been added"


Else


strError = strContactName & " already exist!"


bSuccess = False


End If





Catch ex As Exception


bSuccess = False


strError = ex.Message


Finally


If connect.State = ConnectionState.Open Then


connect.Close()


End If


End Try


Return bSuccess


End Function