请问这段代码的作用？急

Question

Public Function getLastSupplierBypID(StoreID As Integer, pID As Long) As Recordset
     '根据StoreID和pID找商品最近入库的供应商
    Dim rs As New ADODB.Recordset
    rs.CursorLocation = adUseClient
    
    Dim strSQL As String
    strSQL = "select Top 1 f.SupplyID, s.SupplyName, d.FeedPrice " & _
            "from form f, formdetail d, Supply s " & _
            "Where f.fID = d.fID And f.SupplyID = s.SupplyID " & _
            "and f.storeid =" & StoreID & "  and f.formtypeid=3 and d.pid=" & pID & _
            " order by f.UpdateDate DESC "
            
    rs.Open strSQL, conn
    Set getLastSupplierBypID = rs   //这句表示什么？返回什么？内容是什么？End Function

Answer 1

把rs赋予getLastSupplierBypID，函数返回一个记录集

Answer 2

这个和对象赋值一样啊。就是把rs的值赋给getLastSupplierBypID。
vb中说，对象赋值要用set来完成。