Set rsSmetki = New Recordset
      rsSmetki.Open "SHAPE {select * from tblSmetki order by ID_Smetka} AS ParentCMD APPEND ({SELECT tblSmetki_Stavki.ID_Stavka, tblSmetki_Stavki.Smetka_Br, tblSmetki_Stavki.Stavka, tblSmetki_Stavki.Ed_Mera, tblSmetki_Stavki.Kolicina, tblSmetki_Stavki.Ed_Cena, tblSmetki_Stavki.Posledna_Prod_Cena, tblSmetki_Stavki.Popust, tblSmetki_Stavki.DDV, tblSmetki_Stavki.R_Br, tblSmetki_Stavki.Barkod, [Ed_Cena]*[Kolicina] AS Vkupno FROM tblSmetki_Stavki Order By R_Br} AS ChildCMD RELATE ID_Smetka TO Smetka_Br) AS ChildCMD", cn, adOpenStatic, adLockOptimistic