Visual Basic - Copiar un dato con DAO de una celda a otra

tengo un gran problemón debido a mis limitados conocimientos en esto del DAO y así.

mirad, estoy en Access. Tengo dos tablas y quiero cojer el primer registro y copiar el dato de la columna nº 6 de la tabla 1 a la columna nº 4 de la tabla 2.

El caso es que estoy haciendo el DAO pero no sé como se pone eso de copiar. hago en DAO porque con ADO me dice que no tengo todas las librerías o algo así.

lo poco que sé y que estoy usando hasta ahora es esto:

Set db = CurrentDb
Set rs1 = db.OpenRecordset("tabla1")
Set rs2 = db.OpenRecordset("tabla2")

rs2.Fields(4) = rs1.Fields(6).value
rs2.update

Si pongo esto, al llegar a la fila de rs2.fields(4) me da este error:

"Se ha producido el error '3020' en tiempo de ejecución:
Update o cancelUpdate sin AddNew o Edit."

Además tiene gracia porque si lo ejecuto paso a paso, justo hasta antes de llegar a la linea de rs2.fields
me reconoce que rs1.fields(6).value = "lo que hay en esta celda".
pero cuando llega a esta linea me lo pone en nulo.

¿cómo leches se copian los datos de una tabla a otra?

Si quieres actualizar el regsitro de rs2 tienes que editarlo, si por el contrario quieres añadir un registro tienes que añadirlo.

Set db = CurrentDb
Set rs1 = db.OpenRecordset("tabla1")
Set rs2 = db.OpenRecordset("tabla2")
rs2.Edit ó rs2.AddNew
rs2.Fields(4) = rs1.Fields(6).value
rs2.update