Actualizar grupo de registros aleatoriamente Access VBA

¿Es posible actualizar grupos de registros aleatoriamente? Es decir, que se ejecute una función y dentro de un Recordset de 1000 registros, primero actualice 5 registros, asignando al campo CODLFA un consecutivo numérico, luego actualice 7 registros asignando el siguiente, ¿luego actualice 3 registros etc.?

Lo estoy viendo mediante este código, pero no logro adaptar la variable de aleatoriedad (LRandomNumber ) en el procedimiento. Gracias por sus respuestas.

' Código
' ------ >>
Private Sub CmdActualizaCod_Click()
Dim DB As DAO.Database
Dim SQL As String
Dim vFacIni As Double
Dim RsLFA As DAO.Recordset
Dim LRandomNumber As Integer

SQL = "SELECT * FROM F_LFA_ABRIL WHERE FECHA BETWEEN # " & Format(Me.TxtFechaIni, "mm/dd/yyyy") & _
"# AND #" & Format(Me.TxtFechaFin, "mm/dd/yyyy") & "#"

vFacIni = Me.TxtInicial.Value

Set DB = CurrentDb
Set RsLFA = DB.OpenRecordset(SQL, dbOpenDynaset)

RsLFA.MoveFirst
vFacIni = Me.TxtInicial ' El codigo de documento con el que debe iniciar a actualizar CODLFA
LRandomNumber = Int((10 - 1 + 1) * Rnd + 1) ' El numero de registros a actualizar (Aleatorio)
Do While Not RsLFA.EOF
RsLFA.Edit
RsLFA.CODLFA = "" ' Campo a actualizar
RsLFA.Update

' Estoy lanzando un Msgbox para verificar que se recorra correctamente
MsgBox "Art?culo : " & RsLFA!CODART & " - " & RsLFA!DESLFA & "Doc No. " & vFacIni & " Registro Aleatorios : " & LRandomNumber
RsLFA.MoveNext
vFacIni = vFacIni + 1 ' Aumento en uno (1) el código a actualizar
LRandomNumber = Int((10 - 1 + 1) * Rnd + 1) ' El número de registros a actualizar (Aleatoriamente)
Loop

RsLFA.Close
Set RsLFA = Nothing
Set DB = Nothing

End Sub
----------------------