Hola, me pueden ayudar con lo siguiente, por favor.
Necesito modificar los datos de un recordset, intento lo siguiente:

rsMantencionListas.Open "SELECT * FROM [Mantencion Listas Precios] WHERE Rubro = '" & Label2 & "' And [Asociado a:] = '" & DataCombo1 & "' And Vigente = 'Si' ", Conexion, adOpenStatic, adLockOptimistic
If ms.TextMatrix(1, 0) <> Empty And ms.TextMatrix(1, 4) <> Empty And ms.TextMatrix(1, 5) <> Empty Then
rsMantencionListas.MoveFirst
Do While Not rsMantencionListas.EOF
rsMantencionListas.Fields("Vigente") = "No"
rsMantencionListas.Fields("Hasta") = CDate(Text3) - 1
rsMantencionListas.Update
rsMantencionListas.MoveNext
Loop
End If

Pero con esto solo logro modificar el último dato del recorset y necesito modificar todos.

Desde ya, gracias

Juan Espoz