在VBA代码中能不能对子窗体数据源进行筛选

Public Function ReCalcOnRateA()
On Error GoTo Handle_Err
    Dim rsSource As Recordset, strCriteria1 As String
    
    

    Set rsSource = Me.Child0.Form.RecordsetClone     

    rsSource.MoveLast

    rsSource.MoveFirst
    While Not rsSource.EOF
        rsSource.Edit
            rsSource!DiscountRate = Nz(rsSource!Qty / Me.TotalQty, 0)
        rsSource.Update
        rsSource.MoveNext
    Wend
    rsSource.Close: Set rsSource = Nothing
    CalcItems     'Calculate subItem Totals
    
    Exit Function
Handle_Err:
    Select Case Err
        Case 2501, 3021
            ' 2501 - DoCmd method action was canceled.
            ' 3021 - No current record, to trap the rstItem.MoveFirst
            Resume Next
        Case Else
            Call ErrMsgBox(Me.Name & ".ReCalcOnRateA()", Err.Number, Err.Description)
    End Select
End Function

大神路过的帮忙赐教下