usar database y recordset

[cyberagente]

Soy novato, por lo que no os asusteis.(estoy en access).
Cómo hago para en visual Basic hacer referencia a datos de mi base de datos?
Ejemplo:
Cambio es un campo de mi tabla llamada CamposNuevos.
Con Microsoft DAO 3.6 Object Library activado he puesto:

Option Compare Database
Private Function Update()
Dim i As Integer

Dim db As DAO.Database, rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("CamposNuevos")

For i = 1 To rs.RecordCount - 1
If rs.Fields("Cambio") = True Then
DoCmd.RunSQL "UPDATE CamposNuevos SET Cambio = False"
End If
Next i
rs.Close
db.Close

End Function

Problema: que sólo me mira la primera fila, y si su campo está como Cambio = True entonces me cambia todos los registros a False. Pero yo quiero que vaya uno por uno mirando.