[Resolvido]Erro em código VBA popular dados no subform

Galera boa noite!

Preciso preencher campos de um sub formulário de peças apenas digitando o código da referida peça, no entanto esta dando erro de compilação, poderiam me ajudar?
Segue o código:

Código:


Dim rs As DAO.Recordset

   Set rs = CurrentDb.OpenRecordset("SELECT * FROM Cód_Peças WHERE DN4 = " & Me.DN4 & ";")
  
   If Not rs.EOF Then
       EQUIPAMENTO = rs!EQUIPAMENTO
       MODELO = rs!MODELO
       PEÇA = rs!PEÇA
       FABRICANTE = rs!FABRICANTE
       QUANTIDADE = rs!QUANTIDADE
   End If
       rs.Close
   Set rs = Nothing



Estou deixando o bd para melhor entendimento.

Olá;

Código:

Private Sub dn4_AfterUpdate()
Dim db As DAO.Database
Dim rs As DAO.Recordset

   Set db = CurrentDb
   Set rs = db.OpenRecordset("SELECT * FROM Cód_Peças WHERE DN4 = '" & Me.dn4 & "';")
  
   If Not rs.EOF Then
       EQUIPAMENTO = rs!EQUIPAMENTO
       MODELO = rs!MODELO
       PEÇA = rs!PEÇA
       FABRICANTE = rs!FABRICANTE
       QUANTIDADE = rs!QUANTIDADE
   End If
    DoCmd.GoToRecord , , acNewRec
   rs.Close: Set rs = Nothing
   Set db = Nothing
End Sub

Obrigado JPaulo havia esquecido de alguns parâmetros