Error, no hay ningun registro activo, ¿por qué?

[Edith]

Hola, hace unos días había solicitado ayuda para copiar o actualizar
de una tabla a otra, ya lo he conseguido con el siguiente código:

Private Sub copy_Click()

On Error GoTo Err_copy_Click
Dim db As Database
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim mivalor As Integer
Dim faltan As Integer

Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM Empleados where IdEmpleado >=
" & Me!IdEmpleado & " and IdEmpleado <= " & Me!IdEmpleado + 5)
rs.MoveLast
mivalor = rs.RecordCount
rs.MoveFirst
faltan = 10 - mivalor

Set rs2 = db.OpenRecordset("select * from Empleados2")

Do
rs2.Edit
rs2("Nombre") = rs("Nombre")
rs2("Apellidos") = rs("Apellidos")
rs2("Cargo") = rs("Cargo")
rs2.Update
rs.MoveNext
rs2.MoveNext
Loop Until rs.EOF

If faltan > 0 Then
Set rs = db.OpenRecordset("select * from Empleados where IdEmpleado >=
1 and IdEmpleado <= " & faltan)

Do
rs2.Edit
rs2("Nombre") = rs("Nombre")
rs2("Apellidos") = rs("Apellidos")
rs2("Cargo") = rs("Cargo")
rs2.Update
rs.MoveNext
rs2.MoveNext
Loop Until rs.EOF

End If

MsgBox "¡¡¡Hecho, los registros han sido copiados!!!"

Exit_copy_Click:
Exit Sub

Err_copy_Click:
MsgBox Err.Description
Resume Exit_copy_Click

End Sub

Es solo que si lo ejecuto, me sale un mensaje que dice "No hay ningún
registro activo", y el problema lo marca en la línea que dice rs.Edit,
no sé a que se deba, y si a ésta la cambio por rs.AddNew, lo que hace
es copiar los datos, el problema es que cada vez que doy clic en el
botón copy, los datos se me duplican. ¿Qué puedo hacer para evitar que
los datos se dupliquen si le dejo AddNew o para evitar el mensaje de
"No hay ningún registro activo" o alguna otra alternativa?
Por favor, ayúdenme, gracias.

[Ju@nK]

Estas intentando editar registros en rs2 en lugar de añadirselos,
cambia los
rs2.edit
por
rs2.addnew