There is already an open DataReader associated with this Command which must be closed

[wynn]

I had created a shopping cart website using visual studio 2005 web developer
I got this error when i doing update the shopping cart, can anyone please help me solve this problem thanks very much

  Dim cn As New SqlClient.SqlConnection()
            cn.ConnectionString = ConfigurationManager.ConnectionStrings("ASPNETDBConnectionString1").ConnectionString
 
            Dim ProductId As String
            ProductId = Session("PI")
            Dim userID As String
            userID = User.Identity.Name()
 
            Dim sql As String
            sql = "SELECT * FROM [Order] WHERE [UserId] = @userID AND [ProductId] = @ProductId "
 
            Dim cmd1 As New SqlCommand(sql, cn)
            cmd1.Parameters.AddWithValue("UserId", userID)
            cmd1.Parameters.AddWithValue("ProductId", ProductId)
 
            cn.Open()
            Dim dr As SqlDataReader
            dr = cmd1.ExecuteReader
            dr.Read()
 
            If dr.Read() Then
 
                sql = "UPDATE [Order] SET Quantity=@Quantity , SubTotal=@SubTotal" & _
                "WHERE ProductId=@ProductId" & _
                "AND UserId=@UserId"
 
                Dim cmd2 As New SqlCommand(sql, cn)
 
                cmd2.Parameters.AddWithValue("@Quantity", Session("Quantity"))
                cmd2.Parameters.AddWithValue("@ProductId", ProductId)
                cmd2.Parameters.AddWithValue("UserId", userID)
                cmd2.Parameters.AddWithValue("@SubTotal", Session("Price"))
                cmd2.ExecuteNonQuery()
 
 
            Else
 
                sql = "INSERT INTO Order " & _
                      "(UserId, SubTotal, Price, OrderDate, ProductId,Quantity) " & _
                      "VALUES (@UserId, @SubTotal, @Price,@OrderDate, @ProductId,@Quantity)"
                Dim cmd3 As New SqlCommand(sql, cn)
                cmd3.Parameters.AddWithValue("@OrderDate", FormatDateTime(Today, DateFormat.LongDate))
                cmd3.Parameters.AddWithValue("@Price", Session("Price"))
                cmd3.Parameters.AddWithValue("@SubTotal", Session("Price"))
                cmd3.Parameters.AddWithValue("@Quantity", Session("Quantity"))
                cmd3.Parameters.AddWithValue("@ProductId", ProductId)
                cmd3.Parameters.AddWithValue("UserId", userID)
                cmd3.ExecuteNonQuery()
 
 
            End If
            cn.Close()
            cmd1.Dispose()
            cn.Dispose()
 
        End If

[jhardman]

which line gives the error?

By the way, this is ASP.NET, not "classic" ASP, right?

Jared