[Resolvido]Não está atualizando todos os campos com o mesmo id .Só está atualizando 1 campo.

Meus amigos tenho um formulário com IdProcedimentos, mas só está atualizando 1 campo sendo que tenho id igual espalhando. quero atualizar 1 campo que estão com esse Id

Código:

On Error GoTo Trato
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Select * from tbl_cad_rotinas Where IdProcedimentos=  " & Me.Texto21 & "")
   rs.Edit
   rs("Procedimento") = Me.Texto1.Value
rs.Update

MsgBox "Os procedimentos Da rotina foram atualizado com suesso", vbExclamation, "Serviço Social"
 Set rs = Nothing
db.Close
   DoCmd.Close acForm, "formAtualizarProcedimentos"
   DoCmd.OpenForm "formAtualizarProcedimentos"
Trato:
End Sub

Boa noite vc só colocou um campos


rs.Edit
rs("Procedimento") = Me.Texto1.Value

Mas é isso, só um campo.
A tabela é cadastrada com vários Ids dos procedimentos, eu só quero atualizar  só um campo com todos os que estão com o Id específico.
Preciso disso para fazer concertos

Código:

On Error GoTo Trato
Dim db As Database

Set db = CurrentDb

call db.execute("update tbl_cad_rotinas set Procedimento = '" & me!Texto1.value & "' where IdProcedimentos=  " & Me.Texto21)

MsgBox "Os procedimentos Da rotina foram atualizado com suesso", vbExclamation, "Serviço Social"

set db = nothing

  DoCmd.Close acForm, "formAtualizarProcedimentos"
  DoCmd.OpenForm "formAtualizarProcedimentos"
Trato:
End Sub

Damasceno, funcionou, eu que acrescentei aqui sem querer, pensava que se fosse para vários campos o record já selecionava todos com o mesmo Id