[Resolvido]Copiar registo de uma tabela e acrescentar numa otra em banco de dados dividido

Question Boa noite, pessoal,
sou novo neste fórum e desde já agradeço a vossa ajuda para o seguinte:
pretendo copiar um registo completo de um form ativo de uma tabela e gravar numa outra tabela cujos campos são iguais.
Com o seguinte código funciona na perfeição mas quando divida a aplicação para rodar em rede dá o seguinte erro
Run time error "3219"
"Operação inválida"
Instrução
Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset
If MsgBox("Confirma Transferência?", vbYesNo + vbQuestion, "Gestão de Serviço") = vbYes Then
Set db1 = CurrentDb
Set rs1 = db1.OpenRecordset("tblObrasprogramacao", dbOpenTable)

With rs1

.AddNew
![REGIAO_NOB1] = Me.REGIAO_NOB
![OBRA_NOB1] = Me.OBRA_NOB
![ENCOM_NOB1] = Me.ENCOM_NOB
![MORADA1] = Me.MORADA
![DATAB_NOB1] = Me.DATAB_NOB
![DATAFE_NOB1] = Me.DATAFE_NOB
![DESIG_NOB1] = Me.DESIG_NOB
![SECHO_NOB1] = Me.SECHO_NOB
![ORCAM_NOB1] = Me.ORCAM_NOB
![TIPO_OBRA1] = Me.TIPO_OBRA
![TEMPO_ESTIM1] = Me.TEMPO_ESTIM

.Update

End With

Obrigado pela vossa ajuda
ACoelho

Olá António, tente substituir usando apenas uma instrução sql

Exemplo apenas para um campo:
DoCmd.RunSQL "INSERT INTO tblObrasprogramacao ( REGIAO_NOB1 ) SELECT '" & REGIAO_NOB & "';"

Terá que ajustar restantes Campos (isto de responde codigo por telemóvel não é fácil)
Abraço

Funciona direitinho! obrigado
apenas um senão, a mensagem do MSAccess "optou por acrescentar...." como posso impedir esta mensagem sem ser através da desativação de mensagens de consultas de acção?

Olá, troque:
DoCmd.RunSql
Por:
CurrentDb.Execute

Abraço