Dim RS2
Dim Db As Database
Set Tekst = New Stream
Tekst.Open
Tekst.Position = 0
Tekst.Charset = "UTF-8"
Tekst.WriteText "<?xml version=""1.0"" encoding=""UTF-8""?>" & vbCrLf
Tekst.WriteText "<TremolFpServer Command=""Receipt"" Description=""*** RAUN ***"">" & vbCrLf

Set Db = CurrentDb()
Set RS2 = Db.OpenRecordset("SELECT * FROM qryIZLAZMP", dbOpenDynaset)
    Do While Not RS2.EOF
'Tekst.WriteText "<?xml version=""1.0"" encoding=""UTF-8""?>" & vbCrLf
'Tekst = "<" & "Item" & "Description" & "=" & RS2!ArtNaz & "/>" & vbCrLf
 Tekst.WriteText "<" & "Item Description" & "=" & """" & RS2!ArtNaz & """" & " " & "Quantity" & "=" & """" & RS2!KOLICINA & """" & " " & "Price" & "=" & """" & RS2!PRODCIJ & """" & " " & "VatInfo=""1"" " & "Department=""4"" " & "UnitName" & "=" & """" & RS2!SIFJED & """" & " " & "/>" & vbCrLf
'Tekst.WriteText "<" & "Item" & ">" & "Description" & "=" & RS2!ArtNaz & "/>" & vbCrLf
'Tekst.WriteText "<" & "Item" & ">" & "Description" & "=" & RS2!ArtNaz1 & "/>" & vbCrLf
RS2.MoveNext

'Tekst.WriteText "<Payment Type=""Gotovina"" Amount=""100.95""/>" & vbCrLf
'Tekst.WriteText "<AdditionalLine Message=""Linija sa proizvoljnim tekstom 1""/>" & vbCrLf
'Tekst.WriteText "<AdditionalLine Message=""Linija sa proizvoljnim tekstom 2""/>" & vbCrLf
'Tekst.WriteText "</Item Description>" & vbCrLf


    Loop
   
      RS2.Close
      Tekst.WriteText "<Payment Type=""Virman"" Amount=""1""/>" & vbCrLf
      Tekst.WriteText "<Payment Type=""Gotovina"" " & "Amount" & "=" & """" & DSum("[PRODCIJUK]", "QryIZLAZMP") & """" & " " & "/>" & vbCrLf
      Tekst.WriteText "<AdditionalLine Message=""Hvala na posjeti""/>" & vbCrLf
   Tekst.WriteText "</" & "TremolFpServer" & ">" & vbCrLf
      'Tekst.WriteText "<TremolFpServer>" & vbCrLf

    
    Set Db = Nothing
Tekst.SaveToFile "C:\Prodaja\Miro.xml", adSaveCreateOverWrite
 Tekst.Close