Public Function GetProducts(ByVal Folder As Integer) As Collection
Dim Product As clsProduct
Dim TempProducts As Collection
Set TempProducts = New Collection
Dim rst1 As Object
Set rst1 = CreateObject("ADODB.Recordset")
rst1.Open ..........
While Not rst1.EOF
   Set Product = New clsProduct
   Product.Code = rst1.fields("Код")
   Product.Description = Trim(rst1.fields("Описание"))

   Dim rst2 As Object
   Set rst2 = CreateObject("ADODB.Recordset")
   rst2.Open "Select ....
   While Not rst2.EOF
      Set Product.Products1C = New clsProducts1C
      Product.Products1C.Code = rst2.fields("Код")
      If IsNull(rst2.fields("Наименование")) = False Then Product.Products1C.Name = rst2.fields("Наименование")
   rst2.movenext
   Wend
   TempProducts.Add Product, "P" & Product.Code
   Set Product = Nothing
rst1.movenext
Wend
rst1.Close
Set GetProducts = TempProducts
Set TempProducts = Nothing
End Function

Set Products = New Collection
Set Products = General.Conn.GetProducts(Folder)
For i = 1 To Products.Count
   msgbox Product.Code &  " " & Product.Description
Next i