[Resolvido]Gravar dados na Tabela Vinculada

Boa Tarde!

Tenho um banco que usava normalmente e estava funcionando perfeito, só que fui tentar dividir as tabelas para usar em rede ai me ocorreu o problema.
è um controle de estoque que salvava os histórico das peças retiradas na tabela tblMovimentações depois que separei não salva mais as movimentações. Consigo incluir e dar saída nos produtos só que da erro e não salva a movimentação.

e tudo isso era feito através de um modulo com o seguinte código.


Public Function AcertaStock1(CódigoDoProduto As Long, Quantidade As Integer)
'Altera o stock e coloca a informação na tabela de Movimentações (entrada)
Dim db As DAO.Database
Dim rstProdutos As DAO.Recordset
Dim rstMovimentações As DAO.Recordset

Set db = CurrentDb()
Set rstProdutos = db.OpenRecordset("SELECT * FROM tblProdutos " & _
"WHERE CódigoDoProduto=" & CStr(CódigoDoProduto), dbOpenDynaset)

If rstProdutos.RecordCount = 0 Then
   MsgBox "Não há produto cadastrado com o código " & _
   CStr(CódigoDoProduto) & ".", vbCritical
Else
   With rstProdutos
       .MoveFirst
       .Edit
       !UnidadesEmStock = !UnidadesEmStock + Quantidade
       .Update
       iStock = !UnidadesEmStock
   End With
End If

Set rstProdutos = Nothing

Set rstMovimentações = db.OpenRecordset("tblMovimentações", dbOpenTable) " O ERRO Esta dando nessa Linha"
With rstMovimentações
   .AddNew
   !CódigoDoProduto = CódigoDoProduto
   !Quantidade = Quantidade
   !Data = Now()
   .Update
End With

Set rstMovimentações = Nothing
Set db = Nothing

End Function


Alguém pode me ajudar.

Boas...
Experimente dessa forma.

Set rstMovimentações = db.OpenRecordset("tblMovimentações")

Muito obrigado funcionou perfeitamente

O fórum agradece o retorno.