Copiar registo e gravar numa outra tabela

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

Opa, vamos ver se eu entendi...
Quando voce diz "dividir a aplicação" é que criou dois Arquivos Access, um somente com as Tabelas que fica na rede, e outro com o os formulário, consultas, relatórios e macros... esse segundo, fica na máquina dos usuários...

é isso mesmo?

É isso mesmo, uma Base de dados Accdb e as tabelas be
Obrigado