Loop through selected records on a form (1 Viewer)

Function fLoadRstWithSelected(pForm As Access.Form, strPKName As String) As DAO.Recordset
 
    Dim intBottom As Integer
    Dim intTop As Integer
    Dim intI As Integer
    Dim strFilter As String
    Dim rst As DAO.Recordset
 
    With pForm
        intTop = .SelTop
        intBottom = .SelHeight + .SelTop - 1
    End With
 
    Set rst = pForm.RecordsetClone
    With rst
        If intTop > intBottom Then
            strFilter = "1=0"
        Else
            For intI = intTop To intBottom
                .AbsolutePosition = intI - 1
                strFilter = strFilter & "," & .Fields(strPKName).Value
            Next
            strFilter = strPKName & " In (" & Mid(strFilter, 2) & ")"
        End If
        .Filter = strFilter
        Set fLoadRstWithSelected = .OpenRecordset
    End With
    Set rst = Nothing
 
End Function