如何一次向多个表中写入数据?

请教一个问题:

     用户注册后,需要将其用户名一次写入数据库中多个表里的同一字段,这种语句怎样写?  (如: 每个表中都有一个"username"字段。) 我的系统只是个简单的客户自助管理系统,今后确实需要按唯一的用户名来搜索和更新资料.

    是否只能多次重复下面的语句？

dim rs
set rs=server.createobject("ADODB.RECORDSET")
rs.open "表名称",conn,1,3,2

rs.addnew

rs("username")=yourname

rs.update
rs.close