@@IDENTITY problem

Hej.

Jeg sidder med et ordrescript der skal skrive en ordre ind i min database.
Problemet er @@IDENTITY som jeg trækker i min InsertOrder, som jeg ikke kan få smidt ind i InsertItem metodens "ordernum". Som jeg gør det nu skulle oNum gerne være lig med @@IDENTITY og så skrives ind i ”ordernum” kolonnen, men jeg får fejlen:

"INSERT INTO-sætningen indeholder det ukendte feltnavn "ordernum". Kontroller, at du har skrevet navnet korrekt, og forsøg derefter at udføre handlingen igen."

       
Min kode:

Public Shared Function WriteOrder( _
ByVal o As Order) As Boolean
        Dim cs As String

        cs = WebConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
        con = New OleDbConnection(cs)

        con.Open()
        tran = con.BeginTransaction()
        Try
            InsertCustomer(o.Cust)
     
            Dim oNum As Integer

            oNum = InsertOrder(o)
            For Each item As CartItem _
            In o.Cart.GetItems()
                InsertItem(item, oNum)
            Next
            tran.Commit()
            con.Close()
            Return True
        Catch ex As Exception           
            Return False
        End Try
    End Function

Private Shared Function InsertOrder( _
ByVal o As Order) As Integer
        Dim command As New OleDbCommand()
        command.Connection = con
        command.Transaction = tran
        command.CommandText = "INSERT INTO Orders " _
        + "(orderdate, custemail, " _
        + "subtotal, salestax, " _
        + "shipping) " _
        + "VALUES (@OrderDate, @Custemail, " _
        + "@subtotal, @salestax, " _
        + "@shipping)"
        command.Parameters.AddWithValue( _
        "@OrderDate", DateTime.Now)
        command.Parameters.AddWithValue( _
        "@Custemail", o.Cust.Email)
        command.Parameters.AddWithValue( _
        "@subtotal", o.SubTotal)
        command.Parameters.AddWithValue( _
        "@salestax", o.SalesTax)
        command.Parameters.AddWithValue( _
        "@shipping", o.Shipping)
        command.ExecuteNonQuery()
        command.CommandText = "SELECT @@IDENTITY"
        Return Convert.ToInt32(command.ExecuteScalar())
    End Function

Private Shared Sub InsertItem( _
ByVal item As CartItem, _
ByVal oNum As Integer)

        Using connection As New OleDbConnection(WebConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString)

            Try
                Dim command As New OleDbCommand("INSERT INTO OrderItems " _
                + "(ordernum, productid, " _
                + "name, price, quantity) " _
                + "VALUES (@OrderNum, @ProductID, " _
                + "@Name, @Price, @Quantity)", connection)
                command.Parameters.AddWithValue( _
                "@OrderNum", oNum)
                command.Parameters.AddWithValue( _
                "@ProductID", item.ID)
                command.Parameters.AddWithValue( _
                "@Name", item.Name)
                command.Parameters.AddWithValue( _
                "@Price", item.Price)
                command.Parameters.AddWithValue( _
                "@Quantity", item.Quantity)

                command.Connection = con
                command.Transaction = tran

                Dim reader As OleDbDataReader = command.ExecuteReader()
                While reader.Read()
                    command.ExecuteNonQuery()
                End While
                reader.Close()
               
            Catch ex As Exception
                HttpContext.Current.Response.Write(ex.ToString)               
            End Try           
        End Using