[Resolvido]Exportar dados para duas tabelas ao mesmo

Prezados bom dia.

Estou tendo problemas de não exportar dados para uma segunda tabela.

Na primeira rotina funfa legal, exporta. Mas na segunda o mesmo não exporta os dados.

O Código está abaixo..

'----------------------------------------------------------------------------------------
'aqui inicio a cópia para a TblSubServPAg, funciona perfeitamente.

Dim dbPedido As Database, rs1, rs2, rs3 As DAO.Recordset
Set dbPedido = CurrentDb


' aqui eu faço a inserção na tbl TblSubServPAg, para o acerto dos prestadores de servicço

Set rs1 = dbPedido.OpenRecordset("SELECT * FROM TblServico WHERE idServico= " & Me.IdServico)
Set rs2 = dbPedido.OpenRecordset("SELECT * FROM TblSubServico WHERE IdServico=" & Me.IdServico)
Set rs3 = dbPedido.OpenRecordset("TblSubServicoPag", dbOpenTable)



While (Not rs2.EOF)
With rs3
.AddNew
![IdServico] = rs2![IdServico]
![IdSubServico] = rs2![IdSubServico]
![NomeCliente] = rs1![NomeCliente]
![NumSenha] = rs1![NumSenha]
![DataServico] = rs1![DataServico]
![HoraServico] = rs1![HoraServico]
![Prestador] = rs2![Prestador]
![CodBarras] = rs2![CodBarras]
![Descricao] = rs2![Descricao]
![ValorServico] = rs2![ValorServico]


.Update
rs2.MoveNext
End With
Wend





'----------------------------------------------------------------------------------------------
'aqui exporto os valores para a tblrecebimento para acerto do cliente, aqui ele não funciona, precede a leitura mas não adiciona
' nada na tblrecebimento.

Dim DB1 As Database
Dim rs6, rs7 As DAO.Recordset

Set DB1 = CurrentDb

Set rs6 = DB1.OpenRecordset("Select * FROM TblSubServico WHERE IdServico =" & Me.IdServico)
Set rs7 = DB1.OpenRecordset("tblrecebimento", dbOpenTable)

While (Not rs6.EOF)
With rs7
.AddNew
![IdServico] = rs6![IdServico]
![NomeCliente] = rs6![NomeCliente]
![NumSenha] = rs6![NumSenha]
![DataServico] = rs6![DataServico]
![HoraServico] = rs6![HoraServico]
![Prestador] = rs6![Prestador]
![CodBarras] = rs6![CodBarras]
![Descricao] = rs6![Descricao]
![ValorServico] = rs6![ValorServico]


.Update
rs6.MoveNext
End With
Wend


rs6.Close
Set rs6 = Nothing

rs7.Close
Set rs7 = Nothing

Set DB1 = Nothing



rs1.Close
Set rs1 = Nothing

rs2.Close
Set rs2 = Nothing

rs3.Close
Set rs3 = Nothing


Set dbPedido = Nothing

Sinceramente ao meu ver, era para funcionar e não sei o por que disso.

Se um dos colegas puderem me ajudar, agradeço.

Silvio, e o banco?

Boa tarde Ivan....

Me passou desapercebido, um detalhe pouco importante ( sendo muito sarcástico !!! ).....esqueci de algo chamado....relacionamento entre as tabelas.
Foi somente relacionar as mesmas e tudo funcionou como em um passe de mágica.

Valeu nobre Ivan.