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=""*** DEMO 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 & "</Item Description>"
 'Tekst.WriteText "<" & "Item" & ">" & "Description" & "=" & RS2!ArtNaz & "</" & "Item" & ">" & vbCrLf
Tekst.WriteText "<" & "Item" & ">" & "Description" & "=" & RS2!ArtNaz1 & "</" & "Item" & ">" & vbCrLf
RS2.MoveNext
Tekst.WriteText "<Payment Type=""Virman"" Amount=""1""/>" & vbCrLf
'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 "</TremolFpServer>" & vbCrLf
      

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