[Resolvido] Loop não funciona

Olá pessoal preciso de uma pequena ajuda, preciso atualizar alguns registros de uma tabela de acordo com o parâmetro Numero do Pedido de Venda (NumPed). No código que tentei fazer abaixo, está atualizando apenas um registro, os demais não são alterados. O que falta para o Loop funcionar de acordo, ou seja, exemplo para o pedido número 17 que tem 4 registros, preciso que atualize o preço de venda dos 4 registros e está atualizando apenas 1 registro.

Segue o código

                   Set MBD = CurrentDb()
                   Set MC0 = MBD.OpenRecordset("Comissoes")
                   
                   For I = 1 To Me.NumPed
                   
                   Codigo = Me.NumPed
                   criterio = "[NumPed]=" & Codigo
                   MC0.FindFirst criterio
                   MC0.Edit
                   MC0![Venda] = Me.Venda
                   MC0.Update
                 
                   Next
                   Set R = Nothing
                   MC0.Close
                   MBD.Close
                   
Obrigado.

opa MMS, faça da seguinte forma:

Código:

Set MBD = CurrentDb()
Set mc0 = MBD.OpenRecordset("select * from Comissoes where Codigo=" & Me.NumPed)
mc0.MoveFirst
Do While Not mc0.EOF
  mc0.Edit
  MC0("Venda") = Me.Venda
  mc0.Update
  mc0.MoveNext
Loop
Set R = Nothing
mc0.Close
MBD.Close

LiveBrain, obrigado pelo código quase funcionou de prima, fiz apenas um ajuste "Codigo" para "NumPed" que é o nome do campo da tabela e funcionou perfeitamente. Muto obrigado.