Dim RS2
Dim Db As Database
Set Tekst = New Stream
Tekst.Open
Tekst.Position = 0
Tekst.Charset = "IBM852"
Tekst.WriteText "<?xml version=""1.0"" encoding=""IBM852""?>" & vbCrLf
Tekst.WriteText "<TremolFpServer Command=""Report"" Type=""OperatorX;" & Me.SIFDJEL1 & """ > " & vbCrLf

Tekst.WriteText "</" & "TremolFpServer" & ">" & vbCrLf
      'Tekst.WriteText "<TremolFpServer>" & vbCrLf

    
    Set Db = Nothing
Tekst.SaveToFile "C:\Prodaja\OperatorX.xml", adSaveCreateOverWrite
 Tekst.Close
 MsgBox "Izvještaj je uspješno poslan na fiskalni ureaj!", vbExclamation, "Uspješno poslano"