Visual Basic - porque no funciona con varios registros

porque no funciona con varios registros
(uso ado)
con 50 reg si funciona

For x = 1 To RsTabla.RecordCount
RsTabla.Fields("Campo") = valor
RsTabla.Update
RsTabla.MoveNext
Next
RsTabla.Requery

error............

Si tienes que reemplazar en un mismo campo el mismo valor en todos los registros haces:

objConnection.Execute "UPDATE Tabla SET Campo=" & valor