Sub Update()
    
Set Rst = Me.Recordset

    RecNo = Rst.RecordCount
   
  For i =  1  To RecNo 
    
    Dim SqlStr As String
    
    SqlStr =  "UPDATE Addresses SET Addresses.DZoneNew = "  & Chr (34 ) & [Forms]![FrmDelZones]![idZone] & Chr (34 ) &  " "  & _
                  "WHERE (((Addresses.AddressName) Like "  & Chr (34 ) & Chr (42 ) & Forms![FrmDelZones]![NameZone] & Chr (42 ) & Chr (34 ) &  ")) "  & _
                  "WITH OWNERACCESS OPTION;" 
    DoCmd.RunSQL SqlStr

        Rst.MoveNext
        
        If Rst.EOF = True Then Exit For
    
    Next i

End Sub