sql如何把多条重复记录合并？

dim newvalue,sql,rs
sql="select * from [table] where [name]='admin'"
set rs=conn.execute(sql)
do while not rs.eof
newvalue=newvalue&","&rs("value")
rs.movenext
loop
set rs=nothing

newvalue=mid(newvalue,2,len(txt)-1)

conn.execute("delete from [table] where [name]='admin'")
conn.execute("insert into [table]([name],[value]) values('admin','"&newvalue&"')")