Lås felder i dataark

Jeg har en form med en Databundet Dataark
Jeg skal kunne vælge at låse eller låseop for de synlige felder

De koder jeg har nedenfor løber gennem ALLE record der tager en frygtelig tid
Kan det ikke laves så det kun er de record der vises i Dataarket

  Set rs = frm.Form.Recordset.Clone
       
        With rs
            For i = 1 To Form.RecordsetClone.RecordCount
                For Each fld In .Fields
                    If LockedRecord = 1 Then
                      Locked = True
                    Else
                      Locked = False
                    End If
                Next
                Set fld = Nothing
                .MoveNext
            Next i
        .Close
        End With
        Set rs = Nothing