vb 里如何实现改变连接的access数据库中一列的所有数据

假设rs1打开equip表，rs2打开data表，当equip表中Name的内容改变之后

dim newname as string
dim oldname as string

newname=rs1.fields("Name")
If rs2.RecordCount <= 0 Then Exit Sub
rs2.MoveFirst
While Not rs2.EOF
if rs2.Fields("水表名称") = oldname then rs2.Fields("水表名称") = newname
rs2.MoveNext
Wend

上网找，代码很多。
这里是一个例子，代码好长
Set conn = Nothing
strSql = "select * from tb_user"
'连接数据库
conn.Open modMain.strConn
'打开rs
rs.Open strSql, conn, adOpenForwardOnly, adLockPessimistic
'移动到记录
rs.movefirst
'赋值
rs.Fields(0) = Me.txtUserID
rs.Fields(1) = Me.txtUserName
rs.Fields(2) = Now
rs.Fields(4) = Me.txtPasswordF
rs.Fields(5) = Me.txtRemark
rs.Fields(6) = 0
'更新数据库
rs.Update
frmUserManage.lstUser.AddItem Me.txtUserID
rs.Close
Set rs = Nothing
conn.Close