Visual Basic - Ayuda!!! Urgente Base de datos

Hola, tengo problemas cuadno quiero actualizar en una base de datos yo pongo lo siguiente:
rsDetalleVenta.MoveFirst

For i = 1 To rsDetalleVenta.RecordCount
rsDetalleVenta!Cerrado = "SI"
rsDetalleVenta.MoveNext
Next
rsDetalleVenta.Update
Me pone un error cuando el nº de registros excede los 2 o 3 me pone demasiadas filas para la actualizacion, por favor como puedo hacer porque yo tengo que actualizar ese campo solo de la tabla
Gracias

bueno estamos ya viviendo otra nueva version de visual basic, como es visual basic.net y bueno si estas aun usando visual basic 6.0 no podi estar trabajando con metodos para guardar en una base de datos tan arcaicos... asi que te recomiendo que uses ado y que actualizes atraves de sentencias sql
que son la raja para estos que haceres... asi que olvidate de lo anterior que si estas gastando tiempo en esto estas mal usa ado que es lo mejor

yo lo hago de la siguiente manera
Set rsDetalleVenta = New Recordset
With rsDetalleVenta
.Source = "SELECT * FROM DetalleVenta WHERE Cerrado ='" & "NO" & "'"
.ActiveConnection = cnGest
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockOptimistic
End With

rsDetalleVenta.Open Options:=adCmdText
If rsDetalleVenta.RecordCount = 0 Then
GoTo Final:
Else
rsDetalleVenta.MoveFirst
For i = 1 To rsDetalleVenta.RecordCount
rsDetalleVenta!Cerrado = "SI"
rsDetalleVenta.MoveNext
Next
rsDetalleVenta.Update
End If
y me dice cuando actualizo que son muchas filas para actualizar , ( cuando paso los 3 registros mas o menos)