Como abrir uma cosulta via codigo

tenho esse codigo que abre tabela, mas gostaria de abrir uma consulta

com esse codigo
Set rs3 = db1.OpenRecordset("select * from NFF where DATA <= '" & Forms!relatorios!D2 & "'")

Não sei se entendi bem sua pergunta!

No clique de um botão defina:


Private Sub NomeBotão_Click()
DoCmd.OpenQuery "Nomedaconsulta"
End Sub

eu nao quero abrir a consuta pra mim ver os dados delas eu quero abrir como eu abro a tabela neste codigo aqui
na cor de vermelho
Set rs3 = db1.OpenRecordset("select * from Orçamento where Orçamento = '" & ordem & "'")
Set rs2 = db1.OpenRecordset("select * from subos where ORDEM = '" & ordem & "'")
While (Not rs3.EOF)
With rs2
.AddNew
' ![codvenda] = DMax("codvenda", "tblvenda")
!Codigo = rs3!Codigo_Produto
!DISCRIMINACAO = rs3!Discriminação
!QUANT = rs3!Quantidade
!VLRUNI = rs3!Preço
!Idunidade = rs3!Idunidade
!ordem = Forms!INTEGRACAO!PORDEM
!DEP = rs3!DEP
!DATA = Date
!CFOP = rs3!CFOP
!TP = rs3!TP
!Desconto = "0,00"
!mar = "0,00"
!VLRTOT = rs3!Quantidade * rs3!Preço
!CÓD = rs3!CÓD
.Update
rs3.MoveNext

se quer abrir o recordset de uma consulta é precisamente igual

Set rs3 = db1.OpenRecordset("select * from tuaConsulta where Orçamento = '" & ordem & "'")

vou postar o codigo completo pois to querendo trasportar das consultas estoqe e estoqs pra tabela estoq e ta dando erro nestas linhas vermelhas e o erro e o seguinte;

tipo de dados incompativel na expressao de criterio

eu quero transportar tudo da consulta estoqs e da consulta estoqs
mas subtraindo o que esta na consulta estoqs.

Dim db As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset
Dim rs3 As DAO.Recordset, rs4 As DAO.Recordset
If MsgBox("Confirma a venda?", vbYesNo + vbQuestion, "CONFIRMAR") = vbYes Then


Set db = CurrentDb
Set rs3 = db.OpenRecordset("select * FROM ESTOQE where DATA <= '" & Forms!RELATORIOS!D2 & "'")
Set rs4 = db.OpenRecordset("select * from ESTOQS where DATA <= '" & Forms!RELATORIOS!D2 & "'")

Set rs2 = db.OpenRecordset("select * from ESTOQ")
While (Not rs3)
Dim QUANTS
QUANTS = rs3![QUANT] - rs4!QUANT
With rs2
.AddNew
!Codigo = rs3!Codigo
!descricao = rs3!descricao
!QUANT = QUANTS
!VUNI = rs3!VUNI
!Uni = rs3!Uni
!DATA = rs3!DATA
!CFOP = rs3!CFOP
!qnfe = rs3!QUANT
!qnfs = rs4!QUANT
.Update


End With
Wend


rs2.Close
Set rs2 = Nothing

rs3.Close
Set rs3 = Nothing

rs4.Close
Set rs4 = Nothing

Set db = Nothing



End If