Visual Basic - Agregar Multiples registros con ADODB

Yo tengo 2 tablas.... nesecito agregar los datos de una tabla en la otra tabla dependiendo de unos parametros... (si el estado = Activo) ahora yo hize un ciclo para que recorra la primera tabla y busque cuales estan activos... Pero al momento de agregar Muestra Un error que dice "Los cambios solicitados en la tabla no se realizaron correctamente porque crearian valores duplicados" aki les dejo el codigo Les agradezco q me colaboren.

If rs2.RecordCount <> 0 Then
rs2.MoveFirst
While rs2.EOF = False
If rs2("Mes") = DT1.Month And rs2("Año") = DT1.Year And rs2("Codigo_Contratista") Then
Exit Sub
End If
rs2.MoveNext
Wend
End If
If rs.RecordCount <> 0 Then
If DT1.Day = 1 Then
rs2.Close
Set rs2 = Nothing
rs2.Open "select * from Empleados2", cn, adOpenStatic, adLockOptimistic
rs.MoveFirst
While rs.EOF = False
If rs("Estado") = "Activo" Then
rs2.AddNew
rs2("Cedula") = rs("Cedula")
rs2("Nombres") = rs("Nombres")
rs2("Apellidos") = rs("Apellidos")
rs2("Estado") = "Activo"
rs2("ARP") = rs("ARP")
rs2("EPS") = rs("EPS")
rs2("Mes") = DT1.Month
rs2("Año") = DT1.Year
rs2.Update
End If
rs.MoveNext
Wend
End If

MsgBox "Se Ha Actualizado el listado al mes " & DT1.Month & " del " & DT1.Year, vbInformation, "Coinses ARP"
End If