Once SQL2k has executed your insert query, you then run another query to
retrieve the @@identity value that is long gone? It means what it says --  
there is a null value being returned for the second query. You will need to
retrieve the @@Identity as part of your iniitial query. You could use an
output parameter to retrieve the @@Identity.

¤ I'm in the process of upgrading my app from VB6 to VB.net. One of the things
¤ not working in .NET that was working in VB6 is returning the identity value.
¤ I'm getting the error message 'Cast from type DBnull to integer is not valid'
¤ with the code below:
¤
¤ Public Function SaveclsParty() As Integer
¤ ptyID = 0
¤ strsql = "exec sp_insert_PARTIES @ptyid = 0"
¤ strsql = strsql & ", @sysid = " & sysid
¤ strsql = strsql & ", @dmod = '" & dmod & "'"
¤ strsql = strsql & ", @modby = '" & modby & "'"
¤ strsql = strsql & ", @ptyname = '" & ptyname & "'"
¤ strsql = strsql & ", @reltype = '" & reltype & "'"
¤ strsql = strsql & ", @refattmt = '" & BoolStrg(refattmt) & "'"
¤ strsql = strsql & ", @comments = '" & comments & "'"
¤ strsql = strsql & ", @pstatus = " & pstatus
¤ Call cn.Execute(strsql)
¤
¤ strsql = "select @@identity"
¤
¤ Rs = New ADODB.Recordset
¤ Rs = cn.Execute(strsql)
¤ SaveclsParty = Rs.Fields(0).Value  'erroring here
¤
¤ When I execute the insert statement in query analyzer, it inserts correctly
¤ and also returns the identity as well, just not working in .NET. What do I
¤ need to change?

Sounds to me as if somewhere in your code you're attempting to assign a null value to an defined
integer variable. Can you identify on which line the error occurs?

Paul
~~~~
Microsoft MVP (Visual Basic)