[Resolvido]estoque fiscal e estoque interno

olha denho dois bds um e do estoque fiscal e outro o interno
o interno do baixa na ordem de servicos e o fiscal eu queria que quanto eu transportasse da ordem pra nf ele atualizar o fiscal.

ha alguem pode me dizer como eu abro uma consulta via codigo pois tenho esse codigo abaixo mas ele e entre tabelas
e eu queria que de uma consulta eu atualizasse a tabela

Dim db As Database
Dim rs1 As Recordset
Dim rs2 As Recordset

Set db = CurrentDb()
Set rs1 = db.OpenRecordset("select * from Dados ORDER BY cód ASC")

rs1.MoveFirst

Do Until rs1.EOF

Set rs2 = db.OpenRecordset("select * from produtos where n_original=" & rs1!CÓD)
If rs2.EOF Then
rs2.AddNew
rs2![Cd_Produto] = rs1![CÓD]
rs2![n_original] = rs1![CÓD]
rs2![Ref_Original] = rs1![Codigo]
'rs2![NCM_Genero] = rs1![NCM_Genero]
rs2![NCM] = rs1![NCM]
rs2![Unid_Med] = rs1![Idunidade]
rs2![Descr_Produto] = rs1![descricao]
rs2![Cd_Secao] = rs1![Cd_Secao]
rs2![CSOSN] = rs1![CSOSN]
rs2![Origem] = rs1![Origem]
rs2![Cst] = rs1![Cst]
rs2![Cd_Tributo] = rs1![Cd_Tributo]
rs2![modBC] = rs1![modBC]
rs2![modBCST] = rs1![modBCST]
rs2![Estoque_Min] = rs1![EMinimo]
rs2![Estoque_Atual] = rs1![Qde]
rs2![Vl_Custo] = rs1![Cto_medio]
rs2![Vl_Venda] = rs1![valor]

rs2.Update
Else
rs2.MoveFirst
Do Until rs2.EOF

rs2.Edit
rs2![Cd_Produto] = rs1![CÓD]
rs2![n_original] = rs1![CÓD]
rs2![Ref_Original] = rs1![Codigo]
' rs2![NCM_Genero] = rs1![NCM_Genero]
rs2![NCM] = rs1![NCM]
rs2![Unid_Med] = rs1![Idunidade]
rs2![Descr_Produto] = rs1![descricao]
rs2![Cd_Secao] = rs1![Cd_Secao]
rs2![CSOSN] = rs1![CSOSN]
rs2![Origem] = rs1![Origem]
rs2![Cst] = rs1![Cst]
rs2![Cd_Tributo] = rs1![Cd_Tributo]
rs2![modBC] = rs1![modBC]
rs2![modBCST] = rs1![modBCST]
rs2![Estoque_Min] = rs1![EMinimo]
rs2![Estoque_Atual] = rs1![Qde]
rs2![Vl_Custo] = rs1![Cto_medio]
rs2![Vl_Venda] = rs1![valor]

rs2.Update
rs2.MoveNext
Loop
End If

rs1.MoveNext

Loop
rs1.Close
rs2.Close
MsgBox "Produtos Atualizados com Sucesso...", vbInformation

alguem pode me da uma luz neste problema

Estou passando o tópico a Resolvido. Se necessário, reabra por gentileza.
Caso já tenha resolvido, favor dar um retorno.
Grato:

A moderação.