Actualizar "n" registros aleatoriamente Access VBA

Gracias de antemano por sus aportes a esta pregunta.

Tengo Una BBDD en Access 2013, y necesito actualizar "n" numero de registros delimitados por fecha, asignándoles un consecutivo (iniciando en la variable: vFacIni). En lo que me encuentro estancado es en el hecho de que por ejemplo el recordset continene 1550 registros y usando la variable: LRandomNumber = Int((10 - 1 + 1) * Rnd + 1) deberá actualizar aleatoriamente (LRandomNumber de veces, para este caso un numero aleatorio de veces entre 1 y 10) el campo CODLFA (numérico) con los datos de la variable: vFacIni + 1.

Les dejo el código que he adelantado por si alguien desea ayudarme. De nuevo gracias.

' ------ >>

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 'Me muevo al inicio del Recordset
            vFacIni = Me.TxtInicial ' El codigo de documento con el que debe iniciar
            LRandomNumber = Int((10 - 1 + 1) * Rnd + 1) ' El numero de registros (Aleatoriamente) que debera actualizar cada vez ????
        Do While Not RsLFA.EOF
    '            RsLFA.Edit ' Detalle de facturas
    '                RsLFA.CODLFA = ""
    '            RsLFA.Update
                ' Lanzo un Msgbox para verificar
                MsgBox "Art?culo : " & RsLFA!CODART & " - " & RsLFA!DESLFA & "Doc No. " & vFacIni & " Registro Aleatorios : " & LRandomNumber
            RsLFA.MoveNext
            vFacIni = vFacIni + 1
            LRandomNumber = Int((10 - 1 + 1) * Rnd + 1) ' El n?mero de registros (Aleatoriamente) que debera actualizar cada vez ????
        Loop

RsLFA.Close
Set RsLFA = Nothing
Set DB = Nothing
End Sub

' <<------