Visual Basic - COMO LEO TODOS LOS REGISTROS DE UNA TABLA?

SENCILLO:
TENGO UNA TABLA EN ACCESS Y QUIERO LEER LOS REGISTRO PARA CORREGIR UN STATUS
EJEMPLO.

Private Sub Command1_Click()
Data1.Recordset.MoveFirst
Do While Not Data1.EOFAction
Data1.Recordset.MoveNext
Data1.Recordset.Edit
Data1.Recordset.Status = "S"
Data1.Recordset.Update
Loop
End Sub

PERO ME DA UN ERROR
Run-time error "3021"
not current record

Gracias por ayudarme

A ver si me recuerdo;

Primero que nada creo que es mejor usar la instrucción así:

data1.recordset.movefirst
do until data1.recordset.eof

Espero poder ayudarte.

Primero creo que es mejor usar la instrucción de la siguiente forma:

data1.recordset.movefirst
do until data1.recordset.eof
data1.recordset.edit
data1.recordset.fields("status")="S"
data1.recordset.update
loop

Saludos!

Yo pondría el movenext despues del update, de la forma que lo tienes el primer registro nunca se procesa, además de darte el error que dices

Lo que yo haria seria con una consulta sql filtrando por el parametreo que necesites y ya.