[Resolvido]Problemas com Consulta de Atualização

Private Sub SeuBotao_Click()
    Dim db As DAO.Database
    Dim rst1 As DAO.Recordset, rst2 As DAO.Recordset
    On Error Resume Next
    Set db = CurrentDb
    Set rst1 = db.OpenRecordset("SELECT CódigoPedido,SomaDeTotalProduto FROM Consulta2 ORDER BY CódigoPedido")

    
 Do While Not rst1.EOF
 
If rst1.BOF = False Then
            
    Set rst2 = db.OpenRecordset("Select * from [Emissão de Pedidos] where " & rst1("CódigoPedido") & " = CódigoPedido ORDER BY CódigoPedido")
    
   If rst1.BOF = False Then
                        rst2.Edit
                        rst2("TotalPedido") = rst1("SomaDeTotalProduto")
                        rst2.Update
        End If
                        rst1.MoveNext
   End If
Loop
    rst1.Close
    rst2.Close
    Set rst1 = Nothing
    Set rst2 = Nothing
End Sub