我的那个值老是传不过来？、帮忙啊

'====================================================
    '获取购买货物的总数,单类商品编号、数量
      OsumM=0
      uid=GetCustomerID()
      sqlcar="select* from t_shopcar ts inner join t_goods tg on ts.p_code=tg.goods_id where c_code="& uid
      Set rscar =datasource.GetRecordSet(sqlcar)
     ' pcode=rscar("goods_code")
      'pcount=rscar("p_count")
      
       rscar.MoveFirst
    While not rscar.Eof
         OsumM=OsumM+(rscar("promote_price")* rscar("p_count"))
        rscar.MoveNext
    wend
    '==========================================
    '添加购物单
       sql1="INSERT INTO t_order([order_code] ,[customer] ,[order_time] ,[total_money] ,[r_name],[r_addr] ,[r_postcode] ,[r_tel] ,[r_eml],[m_ocomment]) VALUES('"& orderCode &"','"& uname &"',now,'"& OsumM &"','"& oname &"','"& oaddr &"','"& opcode &"','"& oTel &"','"& oemail &"','"& ocoment &"')"
    datasource.ExecuteCommand(sql1)
   

    '=============================================
    '添加订单详情
    ' pcode=rscar("goods_code")
'    pcount=rscar("p_count")
    rscar.MoveFirst
    while not rscar.Eof
        pcode=rscar("goods_code")
       pcount=rscar("p_count")
         
        sql="INSERT INTO[t_order_list]([order_code],[goods_code],[goods_number],[time])VALUES('"& orderCode &"','"& pcode &"','"&pcount &"',now)"   
        datasource.ExecuteCommand(sql)
        '更改仓库货物数量
       sql2="update t_goods set goods_number=goods_number-'"&pcount &"'  where goods_id ='"& pcode &"'"
         datasource.ExecuteCommand(sql2)
       rscar.MoveNext
    wend


那个红色区的值pcount=rscar("p_count")从绿色那块提出来后传到下面带下划线的地方就不对了：不是类型不匹配，就是找不到值，我试了好多遍了，不知道蓝色那块怎么写。请各位哥哥帮帮忙啊？？很急的啊、