update语句出错！
数据库data中有表A\B\C表，A表为商品入库表(a有字段：name_gh,qty_gh)，B表为商品的出库表(b有字段：name_rk,qty_rk),c表为商品库存表（C表有字段：name,qty_gh,qty_rk,qty_cr)
现在我想将A表的name_gh分类，将qty_gh汇总起的总和，更新到C表的qty_gh,条件是A表的name_gh等于C表的name(注：a表的name_gh是列表菜单的，是调用C表的name作为列表菜单的内容的）
现在编写的代码如下：
<%
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("data\data.mdb")
conn.open connstr
dim strsql,rs
set rs=server.CreateObject("adodb.recordset")
strsql="select name_gh,sum(qty_gh) as qty from a group by name_gh"
rs.open strsql,connstr,1,3
update c
set qty_gh = qty
from c,a
where a.name_gh = c.name
%>
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'update'
/test3.asp, 第 24 行
