Loopen gennem rækker i subform

Jeg har en form med en knap og en subform med et antal rækker.

Når jeg trykker på knappen skifter jeg til subformen, så vil jeg loopen gennem rækkerne, og hvis de er markerede skal de bruges til en sql.

Når jeg kommer til Do Until i = .... får jeg fejlen '.... indeholder en ugyldig reference til egenskaben RecordsetClone

Jeg har brugt samme kode i (sub)formen da jeg byggede den op (rense felter ved indlæsning, der fungerede det helt som det skulle)

Min kode på knappen er:

Private Sub cmdExport_Click()

    Me.fDataMasterTst.SetFocus
   
    MsgBox "Test " & Me.fDataMasterTst.Form.fVarenr
    'for at teste hvor jeg er

    DoCmd.GoToRecord , , acFirst
    i = 0
   
    i = Me.fDataMasterTst.Form.RecordsetClone.RecordCount
    MsgBox i
    'for at teste jeg får fat i antal rækker
   
    Do Until i = Me.Form.RecordsetClone.RecordCount - 1
    'her fejler koden

        MsgBox Me.fDataMasterTst.Form.fVarenr
        DoCmd.GoToRecord , , acNext
        i = i + 1

    Loop
    DoCmd.GoToRecord , , acFirst

End Sub